From 145c27a1296c9a0912fefc5cc923a577b20c27d1 Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Wed, 16 Apr 2014 11:52:49 +0900 Subject: [PATCH] hlint hack. --- Language/Haskell/GhcMod/Cradle.hs | 2 -- Language/Haskell/GhcMod/Debug.hs | 2 +- Language/Haskell/GhcMod/GhcPkg.hs | 4 ++-- 3 files changed, 3 insertions(+), 5 deletions(-) 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"]