repositories
/
cc1516.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
man toegevoegd, mapjes gemaakt, bijna klaar voor inleveren
[cc1516.git]
/
src
/
yard.dcl
diff --git
a/src/yard.dcl
b/src/yard.dcl
index
bc4f940
..
7d08a9c
100644
(file)
--- a/
src/yard.dcl
+++ b/
src/yard.dcl
@@
-8,7
+8,7
@@
from Control.Monad import class Monad
from Control.Applicative import class Applicative, class Alternative
import Data.Void
from Control.Applicative import class Applicative, class Alternative
import Data.Void
-:: Error = P
arseError | LexError String | Unexpected String Int
+:: Error = P
ositionalError 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)
@@
-18,16
+18,15
@@
instance Alternative (Parser a)
instance toString Error
instance toString Error
-//(`until`) infix 1
runParser :: (Parser a b) [a] -> (Either Error b, [a])
runParser :: (Parser a b) [a] -> (Either Error b, [a])
-(<?>) :: (Parser a b)
(String, Int)
-> Parser a b
+(<?>) :: (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
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
:: (Parser a b) (Parser a c) -> Parser a [b]
+
(until) infix 2
:: (Parser a b) (Parser a c) -> Parser a [b]
item :: a -> Parser a a | Eq a
list :: [a] -> Parser a [a] | Eq a
eof :: Parser a Void
item :: a -> Parser a a | Eq a
list :: [a] -> Parser a [a] | Eq a
eof :: Parser a Void