使用haskell parsec自定义空白

我想用Parsec的 makeTokenParser 构建我的解析器,但我想使用自己的定义 whiteSpace . 执行以下操作将替换 空格符 按照我的定义,但是 lexeme 解析器仍然使用旧的定义(例如 P.identifier lexer 将使用旧的空白)。

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

查看的代码 makeTokenParser 我想我明白为什么会这样。我想知道是否有任何解决方法来避免完全复制 标记分析器 ?