hasufell/ghc-mod
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Code cleanup

Browse Source
This commit is contained in:
Daniel Vigovszky 2015-05-19 14:04:15 +02:00
parent 3598dda20a
commit 0bb1671238
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Language/Haskell/GhcMod/PathsAndFiles.hs
View File

@ -35,6 +35,7 @@ import Language.Haskell.GhcMod.Types
import Language.Haskell.GhcMod.Error import Language.Haskell.GhcMod.Error
import Language.Haskell.GhcMod.Caching import Language.Haskell.GhcMod.Caching
import qualified Language.Haskell.GhcMod.Utils as U import qualified Language.Haskell.GhcMod.Utils as U
import Utils (mightExist)
-- | Guaranteed to be a path to a directory with no trailing slash. -- | Guaranteed to be a path to a directory with no trailing slash.
type DirPath = FilePath type DirPath = FilePath
@ -211,7 +212,4 @@ cabalHelperCacheFile = setupConfigPath <.> "ghc-mod.cabal-helper"
findCradleFile :: FilePath -> IO (Maybe FilePath) findCradleFile :: FilePath -> IO (Maybe FilePath)
findCradleFile directory = do findCradleFile directory = do
let path = directory </> "ghc-mod.cradle" let path = directory </> "ghc-mod.cradle"
exists <- doesFileExist $ path mightExist path
case exists of
True -> return $ Just path
False -> return Nothing