X-Git-Url: https://git.martlubbers.net/?a=blobdiff_plain;f=yard.dcl;h=08b2ff15f028ab51281ef2508cd1758f388a797f;hb=a8348a333a567e5a469d1e5f8ec6c3dafc051c91;hp=c3024200eaa4f5c524dd3b2731f0dca0d4f3b99b;hpb=6b3981fb80952fe2c510b6f9b849adb0dff77d2c;p=cc1516.git diff --git a/yard.dcl b/yard.dcl index c302420..08b2ff1 100644 --- a/yard.dcl +++ b/yard.dcl @@ -6,7 +6,7 @@ from StdClass import class ==, class Eq from Data.Functor import class Functor from Control.Monad import class Monad from Control.Applicative import class Applicative, class Alternative -import Data.Void +from Data.Void import :: Void :: Error = PositionalError Int Int String | Error String :: Parser a b = Parser ([a] -> (Either Error b, [a])) @@ -18,7 +18,6 @@ instance Alternative (Parser a) instance toString Error - runParser :: (Parser a b) [a] -> (Either Error b, [a]) () :: (Parser a b) Error -> Parser a b fail :: Parser a b