From: Matthijs Kooijman <m.kooijman@student.utwente.nl>
Date: Thu, 9 Apr 2009 16:16:32 +0000 (+0200)
Subject: Import the Types.Data.Num module in eval_tfp_int.
X-Git-Url: https://git.stderr.nl/gitweb?a=commitdiff_plain;h=ed1bae43e489cc20a6be9dd5e007bb7d7b6a95dc;p=matthijs%2Fmaster-project%2Fc%CE%BBash.git

Import the Types.Data.Num module in eval_tfp_int.

This makes eval_tfp_int actually work, since now the proper instances are
in scope.
---

diff --git a/CoreTools.hs b/CoreTools.hs
index 52006fb..1e65b0d 100644
--- a/CoreTools.hs
+++ b/CoreTools.hs
@@ -42,7 +42,8 @@ eval_tfp_int ty =
           (HsBinds.HsValBinds $ (HsBinds.ValBindsIn binds) [])
           (SrcLoc.noLoc expr)
 
-    core <- toCore [] expr
+    let modules = map GHC.mkModuleName ["Types.Data.Num"]
+    core <- toCore modules expr
     execCore core 
 
 -- | Get the length of a SizedWord type