@@ -220,8 +220,8 @@ instance Show LExp where
220 showSep ", " (map (show' env) args) ++")"
220 showSep ", " (map (show' env) args) ++")"
221 show' env (LApp _ e args) = show' env e ++ "(" ++
221 show' env (LApp _ e args) = show' env e ++ "(" ++
222 showSep ", " (map (show' env) args) ++")"
222 showSep ", " (map (show' env) args) ++")"
223− show' env (LLazyExp e) = "%lazy(" ++ show' env e ++ ")"
223+ show' env (LLazyExp e) = "lazy{ " ++ show' env e ++ " }"
224− show' env (LForce e) = "%force(" ++ show' env e ++ ")"
224+ show' env (LForce e) = "force{ " ++ show' env e ++ " }"
225 show' env (LLet n v e) = "let " ++ show n ++ " = " ++ show' env v ++ " in " ++
225 show' env (LLet n v e) = "let " ++ show n ++ " = " ++ show' env v ++ " in " ++
226 show' (env ++ [show n]) e
226 show' (env ++ [show n]) e
227 show' env (LLam args e) = "\\ " ++ showSep "," (map show args) ++ " => " ++
227 show' env (LLam args e) = "\\ " ++ showSep "," (map show args) ++ " => " ++
@@ -232,7 +232,7 @@ instance Show LExp where
232 showSep "\n\t| " (map (showAlt env) alts)
232 showSep "\n\t| " (map (showAlt env) alts)
233 show' env (LConst c) = show c
233 show' env (LConst c) = show c
234 show' env (LForeign lang ty n args) = concat
234 show' env (LForeign lang ty n args) = concat
235− [ "foreign { "
235+ [ "foreign{ "
236 , n ++ "("
236 , n ++ "("
237 , showSep ", " (map (\(ty,x) -> show' env x ++ " : " ++ show ty) args)
237 , showSep ", " (map (\(ty,x) -> show' env x ++ " : " ++ show ty) args)