Parsec.Tokenで "stringLiteral"トークンを再定義する

Question

Parsecライブラリを使用してHaskellでPascal言語パーサーを開発しています.Parsec.Tokenクラスで定義されたトークンを再定義する必要があります。それの

Speekingは、ここに私の場合です：

私はstringLiteralトークンが一致している方法を変更する必要があります。デフォルトの定義では、それは何かbetween char '"'（see this）ですが、私はbetween '\''（アポストロフィ）にする必要があります。この変更をParsecの動作にどうやって行うことができますか？

ありがとうございました！

Answer 1

GenTokenParserという名前のデータ型のフィールドを調整することについて話しています。データ型を適切なデフォルト値で自動的に塗りつぶす関数を使用しているようで、1つのことを調整したいだけです：

myMakeTokenParser langDef = 
    let default = makeTokenParser langDef 
    in default { stringLiteral = newStringLit } 
    where 
    newStringLit = lexeme (
         do{ str <- between (char '\'') 
             (char '\'' <?> "end of string") 
             (many stringChar) 
         ; return (foldr (maybe id (:)) "" str) 
         } 
         <?> "literal string")