aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authordavve <davve@dtek.chalmers.se>2006-12-29 19:58:53 +0000
committerdavve <davve@dtek.chalmers.se>2006-12-29 19:58:53 +0000
commit9dc84a5ccdb17228e1d976b0435a719ec3bb27ed (patch)
treec8400f1b9a46b06695065aa165ef80799e4169c4 /src
parent3117dadcff488eba3993fc0a6bf21281a6d75c26 (diff)
Comments
Diffstat (limited to 'src')
-rw-r--r--src/Main.hs7
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,