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-02-22 08:57:35 -07: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

2
src/Data/Pretty.hs
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