ghc-exactprint-0.5.3.1: tests/examples/ghc80/GA1r.hs

module GA1r where
import Text.ParserCombinators.Parsec

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