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

exporting setupConfigFile.

Browse Source
This commit is contained in:
Kazu Yamamoto 2014-09-23 14:49:13 +09:00
parent d831d6aa59
commit 735b80d0cc
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
Language/Haskell/GhcMod/CabalConfig.hs
View File

@ -6,6 +6,7 @@ module Language.Haskell.GhcMod.CabalConfig (
CabalConfig CabalConfig
, cabalConfigDependencies , cabalConfigDependencies
, cabalConfigFlags , cabalConfigFlags
, setupConfigFile
) where ) where
import Language.Haskell.GhcMod.Error import Language.Haskell.GhcMod.Error
@ -53,20 +54,23 @@ type CabalConfig = String
getConfig :: (IOish m, MonadError GhcModError m) getConfig :: (IOish m, MonadError GhcModError m)
=> Cradle => Cradle
-> m CabalConfig -> m CabalConfig
getConfig cradle = liftIO (readFile path) `tryFix` \_ -> getConfig cradle = liftIO (readFile file) `tryFix` \_ ->
configure `modifyError'` GMECabalConfigure configure `modifyError'` GMECabalConfigure
where where
file = setupConfigFile cradle
prjDir = cradleRootDir cradle prjDir = cradleRootDir cradle
path = prjDir </> configPath
configure :: (IOish m, MonadError GhcModError m) => m () configure :: (IOish m, MonadError GhcModError m) => m ()
configure = configure =
withDirectory_ prjDir $ readProcess' "cabal" ["configure"] >> return () withDirectory_ prjDir $ readProcess' "cabal" ["configure"] >> return ()
setupConfigFile :: Cradle -> FilePath
setupConfigFile crdl = cradleRootDir crdl </> setupConfigPath
-- | Path to 'LocalBuildInfo' file, usually @dist/setup-config@ -- | Path to 'LocalBuildInfo' file, usually @dist/setup-config@
configPath :: FilePath setupConfigPath :: FilePath
configPath = localBuildInfoFile defaultDistPref setupConfigPath = localBuildInfoFile defaultDistPref
-- | Get list of 'Package's needed by all components of the current package -- | Get list of 'Package's needed by all components of the current package
cabalConfigDependencies :: (IOish m, MonadError GhcModError m) cabalConfigDependencies :: (IOish m, MonadError GhcModError m)