@@ -66,9 +66,8 @@ createTemporaryModule imports value =
6666 importDecl m = P.ImportDeclaration m Nothing
6767 traceModule = P.ModuleName (P.ProperName "Trace")
6868 trace = P.Var (P.Qualified (Just traceModule) (P.Ident "print"))
69− returnedValue = P.App (P.Var (P.Qualified Nothing (P.Ident "return"))) value
7069 mainDecl = P.ValueDeclaration (P.Ident "main") [] Nothing
71− (P.Do [ P.DoNotationBind (P.VarBinder (P.Ident "it")) returnedValue
70+ (P.Do [ P.DoNotationBind (P.VarBinder (P.Ident "it")) value
7271 , P.DoNotationValue (P.App trace (P.Var (P.Qualified Nothing (P.Ident "it"))) )
7372 ])
7473 in