adding docs.

This commit is contained in:
Kazu Yamamoto
2014-03-26 12:09:02 +09:00
parent 5c79376ca7
commit 782da60d0c
4 changed files with 8 additions and 5 deletions

View File

@@ -31,6 +31,7 @@ import System.Process
----------------------------------------------------------------
-- | Obtaining the directory for system libraries.
getSystemLibDir :: IO (Maybe FilePath)
getSystemLibDir = do
res <- readProcess "ghc" ["--print-libdir"] []
@@ -159,6 +160,7 @@ setTargetFiles files = do
targets <- forM files $ \file -> guessTarget file Nothing
setTargets targets
-- | Adding the files to the targets.
addTargetFiles :: (GhcMonad m) => [FilePath] -> m ()
addTargetFiles [] = error "ghc-mod: addTargetFiles: No target files given"
addTargetFiles files = do