msyds/rlp
1
0
Fork 0
Code Issues 4 Pull Requests Actions Packages Projects Releases 2 Wiki Activity

fix default prettyPrec definition

Browse Source
This commit is contained in:
crumbtoo
2024-04-15 10:07:20 -06:00
parent 9b8630db90
commit 50fac603b9
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Data/Pretty.hs
+1 -1
View File
@@ -27,7 +27,7 @@ class Pretty a where
{-# MINIMAL pretty | prettyPrec #-} {-# MINIMAL pretty | prettyPrec #-}
pretty = prettyPrec 0 pretty = prettyPrec 0
prettyPrec a _ = pretty a prettyPrec = const pretty
rpretty :: (IsString s, Pretty a) => a -> s rpretty :: (IsString s, Pretty a) => a -> s
rpretty = fromString . render . pretty rpretty = fromString . render . pretty