werkt
[cc1516.git] / yard.dcl
index 9f40539..a1bb2a3 100644 (file)
--- a/yard.dcl
+++ b/yard.dcl
@@ -6,8 +6,8 @@ from Data.Functor import class Functor
 from Control.Monad import class Monad
 from Control.Applicative import class Applicative, class Alternative
 
-:: Parser a b = Parser ([a] -> (Either Error b, [a]))
 :: Error = ParseException
+:: Parser a b = Parser ([a] -> (Either Error b, [a]))
 
 runParser :: (Parser a b) [a] -> (Either Error b, [a])
 
@@ -20,4 +20,4 @@ fail :: Parser a b
 top :: Parser a a
 satisfy :: (a -> Bool) -> Parser a a
 item :: a -> Parser a a | Eq a
-list :: [a] -> Parser a [a] | Eq a
\ No newline at end of file
+list :: [a] -> Parser a [a] | Eq a