Make Map.Map an instance of Pretty.

[matthijs/master-project/cλash.git] / Pretty.hs

diff --git a/Pretty.hs b/Pretty.hs
index 43e0e49bf7aa6c2dc3ce6822bf47306d57136175..ef92c4dc955aeffe47dfb0877ad1b08f80abbae3 100644 (file)
--- a/Pretty.hs
+++ b/Pretty.hs
@@ -141,3 +141,10 @@ prettyBind (b, expr) =
   where
     b' = show b
     expr' = show expr
+
+instance (Pretty k, Pretty v) => Pretty (Map.Map k v) where
+  pPrint = 
+    vcat . map ppentry . Map.toList
+    where
+      ppentry (k, v) =
+        pPrint k <> text " : " $$ nest 15 (pPrint v)