hlint hack.
This commit is contained in:
parent
cd56e26b25
commit
145c27a129
@ -1,5 +1,3 @@
|
||||
{-# LANGUAGE BangPatterns #-}
|
||||
|
||||
module Language.Haskell.GhcMod.Cradle (
|
||||
findCradle
|
||||
, findCradleWithoutSandbox
|
||||
|
@ -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
|
||||
|
@ -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"]
|
||||
|
Loading…
Reference in New Issue
Block a user