X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=utils%2Fext-core%2FDriver.hs;h=da15dce75bc595d6792d587cf298c8cf9d3c6282;hp=2328eca22a94d67f1c9284edb1c4a0e130a31b9a;hb=276585028d51a2516a31b91a91a1f4bba5c9f8ba;hpb=e415eeaf6c7771488af24758ca5b9c22c42be3a6

diff --git a/utils/ext-core/Driver.hs b/utils/ext-core/Driver.hs
index 2328eca2..da15dce 100644
--- 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",