解析Happy Haskell时显示自定义错误

Question

我在Haskell中使用Alex和Happy编写了一个monadic解析器。

我的错误函数定义如下：

parseError :: Token -> Alex a
parseError _ = alexError "error occurred"

如何在解析过程中发送自定义错误（例如在尝试将字符串添加到数字时类型不正确）？

---

UPDATE

解析器不需要进行类型检查，我在生产中执行它，因为我跟踪操作数类型。 正如在评论中所说，我不能使用parseError ，所以有没有办法打印错误并停止解析器？

Answer 1

我通过实现这个功能解决了它：

fatalError :: (Show a1, Show a) => [Char] -> a -> a1 -> t
fatalError s l c = error ("Error at line " ++ (show l) ++ " column " ++ (show c) ++ ": " ++ s)

当检测到错误时，我从生产中调用它