ghc-exactprint-0.5.3.0: tests/examples/ghc8/GA1r.hs

module GA1r where
import Text.ParserCombinators.Parsec

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