ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/GA1r.hs

module GA1r where
import Text.ParserCombinators.Parsec

parseStr :: CharParser () String
parseStr = char '"' *> (many1 (noneOf "\"")) <* char '"'