+{-# OPTIONS -w #-}
+-- The above warning supression flag is a temporary kludge.
+-- While working on this module you are encouraged to remove it and fix
+-- any warnings in the module. See
+-- http://hackage.haskell.org/trac/ghc/wiki/Commentary/CodingStyle#Warnings
+-- for details
+
module ParserCoreUtils where
import IO
(\ _ -> 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