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