From: Matthijs Kooijman 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