使用 Haskell Parsec 自定义空白

我想使用秒差距makeTokenParser构建我的解析器，但我想使用我自己的定义whiteSpace。执行以下替换whiteSpace按照我的定义，但所有lexeme解析器仍然使用旧的定义（例如P.identifier lexer将使用旧的空白）。

...
lexer :: P.TokenParser ()
lexer      = l { P.whiteSpace = myWhiteSpace }
   where l = P.makeTokenParser myLanguageDef
...

查看代码makeTokenParser http://hackage.haskell.org/packages/archive/parsec/3.0.0/doc/html/src/Text-Parsec-Token.html#makeTokenParser我想我明白为什么会这样。我想知道是否有任何解决方法可以避免完全重复代码makeTokenParser?

可悲的是，我认为没有办法。中使用的本地定义makeTokenParser递归地引用自己，因此，正如您所指出的，lexeme uses whiteSpace那里定义的，而不是whiteSpace记录您替换的成员lexer object.

该代码是嘲讽的，因为它使用与两个本地函数相同的名称makeTokenParser并作为记录成员TokenParser构造函数。它们实际上是完全不同的实体。