fix prettyprint infinite loop lol

ElaraLang · Apr 8, 2023 · ace5c19 · ace5c19
1 parent 97c44b8
commit ace5c19
Showing 1 changed file with 11 additions and 2 deletions.
diff --git a/src/Elara/Data/Pretty.hs b/src/Elara/Data/Pretty.hs
@@ -31,8 +31,10 @@ class Pretty a where
 instance {-# OVERLAPPABLE #-} (PP.Pretty a) => Pretty a where
     pretty p = (PP.pretty p)
 
-instance {-# OVERLAPPABLE #-} Pretty a => PP.Pretty a where
-    pretty = unAnnotate . pretty
+
+-- hack
+instance PP.Pretty (Doc AnsiStyle) where
+    pretty = unAnnotate
 
 
 escapeChar :: (IsString s) => Char -> s
@@ -57,6 +59,13 @@ listToText elements =
 
 
 
+instance Pretty i => Pretty [i] where
+    pretty =    align . list . map pretty
+
+instance (Pretty a, Pretty b) => Pretty (a, b) where
+    pretty (a, b) = tupled [pretty a, pretty b]
+
+
 instance (Pretty k, Pretty v) => Pretty (Map k v) where
     pretty m = pretty (Map.toList m)