simple_parser.hs

module Main where

import Text.Parsec
import Text.Parsec.String

input_text :: String
input_text = "foo123:"

main :: IO ()
main = do
  case parse aParser "example" input_text of
    Left  err -> print err
    Right res -> putStrLn $ "I parsed: '" ++ res ++ "'"

aParser :: Parser String
aParser = do
  s <- many1 alphaNum
  _ <- char ':'
  return s

{-
 - Output:
 - > runhaskell -Wall parsec_example.hs
 - I parsed: 'foo123'
 -}