Eliminate redundant import of getArgs
authorBen Gamari <ben@smart-cactus.org>
Mon, 18 Jun 2018 16:56:30 +0000 (12:56 -0400)
committerBen Gamari <ben@smart-cactus.org>
Mon, 18 Jun 2018 16:56:30 +0000 (12:56 -0400)
Main.hs

diff --git a/Main.hs b/Main.hs
index 4ee3e2e..781889a 100644 (file)
--- a/Main.hs
+++ b/Main.hs
@@ -29,7 +29,7 @@ import Foreign
 import Foreign.C.String
 #endif
 import System.Directory         ( doesFileExist, findExecutable )
-import System.Environment       ( getProgName, getArgs )
+import System.Environment       ( getProgName )
 import System.Exit              ( ExitCode(..), exitWith )
 import System.FilePath          ( normalise, splitFileName, splitExtension )
 import System.IO
@@ -46,6 +46,8 @@ import System.FilePath          ( takeDirectory, (</>) )
 #endif
 #if MIN_VERSION_base(4,12,0)
 import GHC.ResponseFile         ( getArgsWithResponseFiles )
+#else
+import GHC.Environment          ( getArgs )
 #endif
 
 import Common