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