projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-03-23 17:45:17 by simonpj]
[ghc-hetmet.git]
/
ghc
/
tests
/
reader
/
should_fail
/
read001.stderr
diff --git
a/ghc/tests/reader/should_fail/read001.stderr
b/ghc/tests/reader/should_fail/read001.stderr
index
6e32bbe
..
9fd0f2b
100644
(file)
--- a/
ghc/tests/reader/should_fail/read001.stderr
+++ b/
ghc/tests/reader/should_fail/read001.stderr
@@
-30,16
+30,27
@@
f _
((n+42))
= y
expr a b c d
((n+42))
= y
expr a b c d
- = ((((...) + (...))
- + (case ... of
+ = ((((((((a + (: a b)) + (a : b)) + (((1 - 'c') - "abc") - 1.293))
+ + ((\ x y z -> x) 42))
+ + ((9 *)))
+ + ((* 8)))
+ + (case x of
Prelude.[]
Prelude.[]
- | ... -> ...
- | ... -> ...
- | ... -> ...
+ | null x -> 99
+ | otherwise -> 98
+ | True -> 97
where
where
- ...))
+ null x = False))
+ ([z | z <- c, isSpace z]))
+ ([z | z <- c, isSpace z]))
- + (let y = ... in ((...) + (...)) + ([..., ... .. ...]))
+ + (let y = foo
+ in
+ (((((((y + [1, 2, 3, 4]) + (4, 3, 2, 1))
+ + (4 :: {- implicit forall -} (Num a) => a))
+ + (if 42 == 42.0 then 1 else 4))
+ + ([1 .. ]))
+ + ([2, 4 .. ]))
+ + ([3 .. 5]))
+ + ([4, 8 .. 999]))
mat a b c d
| foof a b = d
| foof a c = d
mat a b c d
| foof a b = d
| foof a c = d