First cut at reviving the External Core tools

[ghc-hetmet.git] / utils / ext-core / Driver.hs

diff --git a/utils/ext-core/Driver.hs b/utils/ext-core/Driver.hs
index 2328eca..da15dce 100644 (file)
--- a/utils/ext-core/Driver.hs
+++ b/utils/ext-core/Driver.hs
@@ -44,6 +44,7 @@ main = do (_,modules) <- foldM process (initialEnv,[]) flist
          let result = evalProgram modules
          putStrLn ("Result = " ++ show result)
          putStrLn "All done"
+-- TODO
        where flist =    ["PrelBase.hcr",
                          "PrelMaybe.hcr",
                          "PrelTup.hcr",