{ module @ModuleName@ (parse) where } %name parse %tokentype { Token } %% { happyError :: Int -> a happyError x = error ("Error at LINE " ++ show x) }