From: Michael Orlitzky Date: Thu, 16 Apr 2015 01:03:45 +0000 (-0400) Subject: Import cleanup and hlint fix in CommandLine. X-Git-Tag: 0.0.1~20 X-Git-Url: https://gitweb.michael.orlitzky.com/?a=commitdiff_plain;h=ce936039ed9ea446dd79544eb5b9cfd30a8188bd;p=spline3.git Import cleanup and hlint fix in CommandLine. --- diff --git a/src/CommandLine.hs b/src/CommandLine.hs index f413e2f..c404890 100644 --- a/src/CommandLine.hs +++ b/src/CommandLine.hs @@ -4,14 +4,14 @@ module CommandLine ( Args(..), apply_args, program_name, - show_help) + show_help ) where -- Get the version from Cabal. -import Paths_spline3 (version) -import Data.Version (showVersion) +import Paths_spline3 ( version ) +import Data.Version ( showVersion ) -import Data.String.Utils (startswith) +import Data.String.Utils ( startswith ) import System.Console.CmdArgs ( CmdArgs, Data, @@ -29,15 +29,14 @@ import System.Console.CmdArgs ( program, typ, summary, - versionArg - ) + versionArg ) -import System.Console.CmdArgs.Explicit (process) -import System.Environment (getArgs, withArgs) -import System.Exit (ExitCode(..), exitWith) -import System.IO (hPutStrLn, stderr) +import System.Console.CmdArgs.Explicit ( process ) +import System.Environment ( getArgs, withArgs ) +import System.Exit ( ExitCode(..), exitWith ) +import System.IO ( hPutStrLn, stderr ) -import ExitCodes +import ExitCodes ( exit_arg_parse_failed ) @@ -145,8 +144,8 @@ arg_spec = -- Infix notation won't work, the arguments are backwards! is_missing_arg_error :: String -> Bool -is_missing_arg_error s = - startswith "Requires at least" s +is_missing_arg_error = + startswith "Requires at least" show_help :: IO Args