src/Main.hs: import Args(..) explicitly.

[spline3.git] / src / Main.hs

diff --git a/src/Main.hs b/src/Main.hs
index ae8c5e39c703491449d01bc95058f2cb67b61c80..84485589683f114a381ff4de372b034fb46646a5 100644 (file)
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -8,10 +8,16 @@ import qualified Data.Array.Repa as R
 import Data.Maybe ( fromJust )
 import GHC.Conc ( getNumProcessors, setNumCapabilities )
 import System.IO ( hPutStrLn, stderr )
-import System.Exit ( exitSuccess, exitWith, ExitCode(..) )
-
-import CommandLine ( Args(..), apply_args )
-import ExitCodes
+import System.Exit (
+  ExitCode( ExitFailure ),
+  exitSuccess,
+  exitWith )
+
+import CommandLine (
+  Args(Args, depth, height, input, lower_threshold, output,
+       scale, slice, upper_threshold, width),
+  apply_args )
+import ExitCodes ( exit_arg_not_positive, exit_arg_out_of_bounds )
 import Grid ( zoom )
 import Volumetric (
   bracket_array,