diff options
| -rw-r--r-- | src/Main.hs | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/src/Main.hs b/src/Main.hs index ad898c8b..1f978b1e 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -63,6 +63,8 @@ import StaticFlags ( parseStaticFlags ) -- Top-level stuff -------------------------------------------------------------------------------- +-- | Get the GHC lib dir by asking the GHC binary that this program was built +-- with (or should've been built with if it hasn't moved). getGHCLibDir = do str <- systemCaptureStdout 0 (compilerPath ++ " --print-libdir") case lines str of @@ -83,8 +85,6 @@ systemCaptureStdout verbose cmd = do let ev [] = ' '; ev xs = last xs ev str `seq` return str -type CheckedMod = (Module, FilePath, FullyCheckedMod) - main :: IO () main = do args <- getArgs @@ -450,6 +450,9 @@ instance Show a => Show (DocDecl a) where show (DocCommentPrev doc) = "prev" ++ show doc show _ = "other" -} + +type CheckedMod = (Module, FilePath, FullyCheckedMod) + type FullyCheckedMod = (ParsedSource, RenamedSource, TypecheckedSource, |