(\ _ -> return "Main")
where
findMod [] = "Main"
+ -- TODO: this should just return the module name, without the package name
findMod ("%module":m:_) = m
findMod (_:xs) = findMod xs
| TKin
| TKcase
| TKof
- | TKcoerce
+ | TKcast
| TKnote
| TKexternal
+ | TKlocal
| TKwild
| TKoparen
| TKcparen
| TKcbrace
| TKhash
| TKeq
+ | TKcolon
| TKcoloncolon
+ | TKcoloneqcolon
| TKstar
| TKrarrow
| TKlambda