repositories
/
cc1516.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
hoig
[cc1516.git]
/
src
/
parse.icl
diff --git
a/src/parse.icl
b/src/parse.icl
index
fed0760
..
7320b11
100644
(file)
--- a/
src/parse.icl
+++ b/
src/parse.icl
@@
-178,7
+178,7
@@
derive gEq TokenValue
satTok :: TokenValue -> Parser Token Token
satTok t = top >>= \tok=:(pos1, pos2, tv) -> if (eq t tok)
(return tok)
satTok :: TokenValue -> Parser Token Token
satTok t = top >>= \tok=:(pos1, pos2, tv) -> if (eq t tok)
(return tok)
- (fail <?>
(printToString tv+++printToString t, pos1
))
+ (fail <?>
Unexpected (printToString tv) (pos1, pos2
))
where
eq (IdentToken _) (_, _, IdentToken _) = True
eq (NumberToken _) (_, _, NumberToken _) = True
where
eq (IdentToken _) (_, _, IdentToken _) = True
eq (NumberToken _) (_, _, NumberToken _) = True