update README

[cc1516.git] / src / yard.dcl

diff --git a/src/yard.dcl b/src/yard.dcl
index a40b42d..c302420 100644 (file)
--- a/src/yard.dcl
+++ b/src/yard.dcl
@@ -2,13 +2,13 @@ definition module yard
 
 from StdString import class toString
 from Data.Either import :: Either
 
 from StdString import class toString
 from Data.Either import :: Either

-from StdClass import class Eq
+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.Functor import class Functor
 from Control.Monad import class Monad
 from Control.Applicative import class Applicative, class Alternative
 import Data.Void
 

-:: Error = ParseError | LexError String | Unexpected String (Int, Int)
+:: Error = PositionalError Int Int String | Error String

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