From 50fac603b9091ca65ce64e942681645ed3f24ea2 Mon Sep 17 00:00:00 2001
From: crumbtoo <crumb@disroot.org>
Date: Thu, 22 Feb 2024 08:57:35 -0700
Subject: [PATCH] fix default `prettyPrec` definition

---
 src/Data/Pretty.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Pretty.hs b/src/Data/Pretty.hs
index 77337d7..56086b0 100644
--- 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