on master help sign in
Cleanup main warnings (#3123)

* Cleanup all -Wall warnings on Main (mostly unused imports) * Collapse two BSD ifdefs into one.

commit3ce13cbf430d1a6ad792d22a69c6533e8b9efba9 authorLeif Warner <abimelech@gmail.com> dateWed 20 Apr 2016, 00:36 (10 years ago) parent5984b2f
2 files changed+5−25
main/Main.hs+3−20 src/IRTS/System.hs+2−5
main/Main.hs+3−20
@@ -1,38 +1,21 @@
11module Main where
22
3−import System.Console.Haskeline
4−import System.IO
5−import System.Environment
6−import System.Exit
7−import System.Directory
3+import System.Exit ( exitSuccess )
84
9−import Data.Maybe
10−import Data.Version
115import Control.Monad ( when )
126
13−import Idris.Core.TT
14−import Idris.Core.Typecheck
15−import Idris.Core.Evaluate
16−import Idris.Core.Constraints
17−
187import Idris.AbsSyntax
19−import Idris.Parser
208import Idris.REPL
21−import Idris.ElabDecls
22−import Idris.Primitives
239import Idris.Imports
2410import Idris.Error
2511import Idris.CmdOptions
2612
2713import IRTS.System ( getLibFlags, getIdrisLibDir, getIncFlags )
2814
29−import Util.DynamicLinker
30−import Util.System
15+import Util.System ( setupBundledCC )
3116
3217import Pkg.Package
3318
34−import Paths_idris
35−
3619-- Main program reads command line options, parses the main program, and gets
3720-- on with the REPL.
3821
@@ -97,7 +80,7 @@ showIncs = do incFlags <- getIncFlags
9780
9881-- | List idris packages installed
9982showPkgs :: IO b
100−showPkgs = do mapM putStrLn =<< installedPackages
83+showPkgs = do mapM_ putStrLn =<< installedPackages
10184 exitSuccess
10285
10386showLoggingCats :: IO b
src/IRTS/System.hs+2−5
@@ -31,8 +31,10 @@ getTargetDir = overrideDataDirWith "TARGET"
3131
3232#if defined(FREEBSD) || defined(DRAGONFLY)
3333extraLib = ["-L/usr/local/lib"]
34+extraInclude = ["-I/usr/local/include"]
3435#else
3536extraLib = []
37+extraInclude = []
3638#endif
3739
3840#ifdef IDRIS_GMP
@@ -47,10 +49,5 @@ getLibFlags = do dir <- getDataDir
4749
4850getIdrisLibDir = addTrailingPathSeparator <$> overrideDataDirWith "IDRIS_LIBRARY_PATH"
4951
50−#if defined(FREEBSD) || defined(DRAGONFLY)
51−extraInclude = ["-I/usr/local/include"]
52−#else
53−extraInclude = []
54−#endif
5552getIncFlags = do dir <- getDataDir
5653 return $ ("-I" ++ dir </> "rts") : extraInclude