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

View File

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

View File

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

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
ghcPkgDbStackOpts :: [GhcPkgDb] -- ^ Package db stack
-> [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
ghcDbStackOpts :: [GhcPkgDb] -- ^ Package db stack
-> [String]
ghcDbStackOpts dbs = (ghcDbOpt `concatMap` dbs)
ghcDbStackOpts dbs = ghcDbOpt `concatMap` dbs
ghcPkgDbOpt :: GhcPkgDb -> [String]
ghcPkgDbOpt GlobalDb = ["--global"]