From d74087b302527e5db6364a2e9c155d16a93e52e0 Mon Sep 17 00:00:00 2001 From: Jan Stolarek Date: Thu, 23 Feb 2017 20:09:58 +0000 Subject: [PATCH] Wibble in resugaring exceptions --- lib/Language/Slicer/Resugar.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/lib/Language/Slicer/Resugar.hs b/lib/Language/Slicer/Resugar.hs index 08a86ff..2faac68 100644 --- a/lib/Language/Slicer/Resugar.hs +++ b/lib/Language/Slicer/Resugar.hs @@ -266,7 +266,7 @@ instance Resugarable Outcome where resugarM OHole = return RHole resugarM (ORet v) = resugarM v resugarM (OExn v) = do e <- resugarM v - return (RRaise e) + return (RException e) resugarM OStar = resugarError ("Don't know how to resugar stars. " ++ "Where did you get this value from?" ) @@ -360,7 +360,7 @@ instance Pretty RExp where pPrint (RCatch e x h) = text "try" $$ nest 2 (pPrint e) $$ text "with" <+> pPrint x <+> text "=>" $$ nest 2 (pPrint h) - pPrint (RException e) = text "" <> partial_parensOpt e + pPrint (RException e) = text "" <+> partial_parensOpt e instance Pretty RMatch where pPrint (RMatch ms) = vcat (punctuate semi (map pp_match ms))