From 9dc84a5ccdb17228e1d976b0435a719ec3bb27ed Mon Sep 17 00:00:00 2001 From: davve Date: Fri, 29 Dec 2006 19:58:53 +0000 Subject: Comments --- src/Main.hs | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'src') 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, -- cgit v1.2.3