@@ -43,6 +43,7 @@ instance Pretty (Declaration t v) where
43 let alias = P.text name <+> P.hsep (map P.text tvars) in
43 let alias = P.text name <+> P.hsep (map P.text tvars) in
44 P.hang (P.text "type" <+> alias <+> P.equals) 4 (pretty tipe)
44 P.hang (P.text "type" <+> alias <+> P.equals) 4 (pretty tipe)
46− -- TODO: actually write out the other cases. They are currently unused, but
46+ -- TODO: Actually write out the contained data in these cases.
47− -- this is probably going to be a bug someday.
47+ ImportEvent _ _ _ _ -> P.text (show decl)
48+ ExportEvent _ _ _ -> P.text (show decl)
48− _ -> P.text (show decl)
49+ Fixity _ _ _ -> P.text (show decl)