definition module Yard

// Stolen from https://github.com/dopefishh/cc1516/blob/master/yard.dcl;
// minor changes made to not depend on clean-platform

from StdString import class toString
from StdClass import class ==

import Common

:: Parser a b = Parser ([a] -> (Either Error b, [a]))

instance Functor (Parser a)
instance Applicative (Parser a)
instance Monad (Parser a)
instance Alternative (Parser a)

runParser :: (Parser a b) [a] -> (Either Error b, [a])
(<?>) :: (Parser a b) Error -> Parser a b
fail :: Parser a b
top :: Parser a a
peek :: Parser a a
satisfy :: (a -> Bool) -> Parser a a
check :: (a -> Bool) -> Parser a a
(until) infix 2 :: (Parser a b) (Parser a c) -> Parser a [b]
item :: a -> Parser a a | == a
list :: [a] -> Parser a [a] | == a