diff --git a/Language/Haskell/GhcMod/Cradle.hs b/Language/Haskell/GhcMod/Cradle.hs index bb88b9b..71dcbb6 100644 --- a/Language/Haskell/GhcMod/Cradle.hs +++ b/Language/Haskell/GhcMod/Cradle.hs @@ -1,5 +1,3 @@ -{-# LANGUAGE BangPatterns #-} - module Language.Haskell.GhcMod.Cradle ( findCradle , findCradleWithoutSandbox diff --git a/Language/Haskell/GhcMod/Debug.hs b/Language/Haskell/GhcMod/Debug.hs index d3b5fe6..bb6d7b4 100644 --- a/Language/Haskell/GhcMod/Debug.hs +++ b/Language/Haskell/GhcMod/Debug.hs @@ -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 diff --git a/Language/Haskell/GhcMod/GhcPkg.hs b/Language/Haskell/GhcMod/GhcPkg.hs index d7ead7f..bf59984 100644 --- a/Language/Haskell/GhcMod/GhcPkg.hs +++ b/Language/Haskell/GhcMod/GhcPkg.hs @@ -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"]