fix default prettyPrec definition

2024-02-22 08:57:35 -07:00
parent c0baf46f29
commit a2ad7856a6
1 changed files with 1 additions and 1 deletions
--- a/src/Data/Pretty.hs
+++ b/src/Data/Pretty.hs
@@ -27,7 +27,7 @@ class Pretty a where

    {-# MINIMAL pretty | prettyPrec #-}
    pretty = prettyPrec 0
-    prettyPrec a _ = pretty a
+    prettyPrec = const pretty

 rpretty :: (IsString s, Pretty a) => a -> s
 rpretty = fromString . render . pretty