hasufell
/
ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hlint hack.

This commit is contained in:
Kazu Yamamoto 2014-04-16 11:52:49 +09:00
parent cd56e26b25
commit 145c27a129
3 changed files with 3 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Language/Haskell/GhcMod/Cradle.hs
View File

@ -1,5 +1,3 @@
{-# LANGUAGE BangPatterns #-}
module Language.Haskell.GhcMod.Cradle ( module Language.Haskell.GhcMod.Cradle (
findCradle findCradle
, findCradleWithoutSandbox , findCradleWithoutSandbox

2
Language/Haskell/GhcMod/Debug.hs
View File

@ -33,7 +33,7 @@ debug opt cradle fileName = do
return simpleCompilerOption return simpleCompilerOption
void $ initializeFlagsWithCradle opt cradle gopts True void $ initializeFlagsWithCradle opt cradle gopts True
setTargetFiles [fileName] setTargetFiles [fileName]
mglibdir <- liftIO $ getSystemLibDir mglibdir <- liftIO getSystemLibDir
return [ return [
"Root directory: " ++ rootDir "Root directory: " ++ rootDir
, "Current directory: " ++ currentDir , "Current directory: " ++ currentDir

4
Language/Haskell/GhcMod/GhcPkg.hs
View File

@ -77,12 +77,12 @@ ghcPkgList dbs = words <$> readProcess "ghc-pkg" opts ""
-- | Get options needed to add a list of package dbs to ghc-pkg's db stack -- | Get options needed to add a list of package dbs to ghc-pkg's db stack
ghcPkgDbStackOpts :: [GhcPkgDb] -- ^ Package db stack ghcPkgDbStackOpts :: [GhcPkgDb] -- ^ Package db stack
-> [String] -> [String]
ghcPkgDbStackOpts dbs = (ghcPkgDbOpt `concatMap` dbs) ghcPkgDbStackOpts dbs = ghcPkgDbOpt `concatMap` dbs
-- | Get options needed to add a list of package dbs to ghc's db stack -- | Get options needed to add a list of package dbs to ghc's db stack
ghcDbStackOpts :: [GhcPkgDb] -- ^ Package db stack ghcDbStackOpts :: [GhcPkgDb] -- ^ Package db stack
-> [String] -> [String]
ghcDbStackOpts dbs = (ghcDbOpt `concatMap` dbs) ghcDbStackOpts dbs = ghcDbOpt `concatMap` dbs
ghcPkgDbOpt :: GhcPkgDb -> [String] ghcPkgDbOpt :: GhcPkgDb -> [String]
ghcPkgDbOpt GlobalDb = ["--global"] ghcPkgDbOpt GlobalDb = ["--global"]