diff options
| author | davve <davve@dtek.chalmers.se> | 2006-12-29 19:58:53 +0000 |
|---|---|---|
| committer | davve <davve@dtek.chalmers.se> | 2006-12-29 19:58:53 +0000 |
| commit | 9dc84a5ccdb17228e1d976b0435a719ec3bb27ed (patch) | |
| tree | c8400f1b9a46b06695065aa165ef80799e4169c4 /src/Main.hs | |
| parent | 3117dadcff488eba3993fc0a6bf21281a6d75c26 (diff) | |
Comments
Diffstat (limited to 'src/Main.hs')
| -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, |