From 174976e5121fc4544e07b48bdf7bda5bfbdb1198 Mon Sep 17 00:00:00 2001 From: Chuck Jazdzewski Date: Sun, 20 Oct 2019 10:27:56 -0700 Subject: [PATCH] Fix pred case of chapter 3 Pretty --- chapter3/calc/Pretty.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/chapter3/calc/Pretty.hs b/chapter3/calc/Pretty.hs index 9574022..9749387 100644 --- a/chapter3/calc/Pretty.hs +++ b/chapter3/calc/Pretty.hs @@ -19,7 +19,7 @@ instance Pretty Expr where ppr _ Tr = PP.text "true" ppr _ Fl = PP.text "false" ppr p (Succ a) = (parensIf (p > 0) $ PP.text "succ" <+> ppr (p+1) a) - ppr p (Pred a) = (parensIf (p > 0) $ PP.text "succ" <+> ppr (p+1) a) + ppr p (Pred a) = (parensIf (p > 0) $ PP.text "pred" <+> ppr (p+1) a) ppr p (IsZero a) = (parensIf (p > 0) $ PP.text "iszero" <+> ppr (p+1) a) ppr p (If a b c) = PP.text "if" <+> ppr p a