zerokarmaleft · May 8, 2014 22:47
diff --git a/Examples.hs b/Examples.hs
 {-# LANGUAGE OverloadedStrings #-}

 module Parsing.Examples where

 import Data.Attoparsec.Text
 import Control.Applicative

 something :: Parser (String, Maybe String)
 something = 
  do a <- manyTill anyChar (string "--") <|> many anyChar
     b <- optional $ many1 anyChar
     return (a,b)
	{-# LANGUAGE OverloadedStrings #-}

	module Parsing.Examples where

	import Data.Attoparsec.Text
	import Control.Applicative

	something :: Parser (String, Maybe String)
	something =
	do a <- manyTill anyChar (string "--") <\|> many anyChar
	b <- optional $ many1 anyChar
	return (a,b)
No results found