Die elementaren Parser

module Parser_Basic where

import Parser_Type

item :: Parser Char
item = Parser $ \ input -> case input of
     (c : cs) -> [ (c, cs) ]
     ""	      -> []

eof :: Parser ()
eof = Parser $ \ input -> case input of
    "" -> [ ((), "") ]
    _  -> []