on master help sign in
Remove catch-all match in Declaration

These ought to actually be written out, as the previous TODO message stated, but at least this way the compiler will warn us when adding a new Decl.

commit67924d1c8ab8a0e3a660868bd9b7a8b3b335f8dd authorMichael Sondergaard <msond@cs.au.dk> dateMon 4 Nov 2013, 20:05 (13 years ago) parenta0cbe84
1 file changed+4−3
compiler/SourceSyntax/Declaration.hs+4−3
compiler/SourceSyntax/Declaration.hs+4−3
@@ -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)