Updated for changes in prelude.
commit891bbaa15d0599f0730121c62b5d20d3569f6285
authorjoneshf <jones3.hardy@gmail.com>
dateFri 21 Feb 2014, 15:44 (13 years ago)
parent6d74b8c
psci/Main.hs+1−1
@@ -199,7 +199,7 @@ createTemporaryModule exec imports lets value =
199199 let
200200 moduleName = P.ModuleName [P.ProperName "Main"]
201201 importDecl m = P.ImportDeclaration m Nothing
202− traceModule = P.ModuleName [P.ProperName "Trace"]
202+ traceModule = P.ModuleName [P.ProperName "Debug", P.ProperName "Trace"]
203203 trace = P.Var (P.Qualified (Just traceModule) (P.Ident "print"))
204204 value' = foldr ($) value lets
205205 itDecl = P.ValueDeclaration (P.Ident "it") [] Nothing value'