X-Git-Url: http://gitweb.michael.orlitzky.com/?a=blobdiff_plain;f=src%2FMain.hs;h=ab37ca558f009bd30d5ac610e117f9282836442f;hb=83ef0aaeae074756e4ee90d72d3e27e74e136061;hp=913a939a37b1b754f0c21503e90fc0a7647d9c99;hpb=b879273d6fed58e16beb7e4bf77e6b1a258219a8;p=spline3.git

diff --git a/src/Main.hs b/src/Main.hs
index 913a939..ab37ca5 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -1,6 +1,6 @@
 {-# LANGUAGE RecordWildCards, DoAndIfThenElse #-}
 
-module Main
+module Main (main)
 where
 
 import Control.Monad ( when )
@@ -8,10 +8,13 @@ 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 System.Exit (
+  ExitCode( ExitFailure ),
+  exitSuccess,
+  exitWith )
 
 import CommandLine ( Args(..), apply_args )
-import ExitCodes
+import ExitCodes ( exit_arg_not_positive, exit_arg_out_of_bounds )
 import Grid ( zoom )
 import Volumetric (
   bracket_array,