From ce936039ed9ea446dd79544eb5b9cfd30a8188bd Mon Sep 17 00:00:00 2001 From: Michael Orlitzky Date: Wed, 15 Apr 2015 21:03:45 -0400 Subject: [PATCH] Import cleanup and hlint fix in CommandLine. --- src/CommandLine.hs | 25 ++++++++++++------------- 1 file changed, 12 insertions(+), 13 deletions(-) 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 -- 2.43.2