Commit 2ed68806 authored by simonpj's avatar simonpj
Browse files

[project @ 2002-06-05 14:09:46 by simonpj]

Update expected results
parent b04bfa99
......@@ -9,7 +9,7 @@ test "drvrun001" { vtr("", "", "") }
test "drvrun002" { vtr("", "", "") }
test "drvrun003" { vtr("", "", "") }
test "drvrun004" { vtr("", "", "") }
test "drvrun005" { vtr("", "", "2") }
test "drvrun005" { vtr("", "", "") }
test "drvrun006" { vtr("", "", "") }
test "drvrun007" { vtr("", "", "") }
test "drvrun008" { vtr("-funbox-strict-fields", "", "") }
Options{s=(SpecialOptions{test=42})}
Options{s=(SpecialOptions{test=42})}
Options {s=SpecialOptions {test=42}}
Options {s=SpecialOptions {test=42}}
......@@ -4,14 +4,17 @@ module Main where
If a fixity declaration hasn't been supplied for
an operator, it is defaulted to being "infixl 9".
The derived Read instances for data types containing
left-assoc constructors produces code that causes
non-termination if you use 'read' to evaluate them
( (head (reads x)) is cool tho.)
OLD: The derived Read instances for data types containing
left-assoc constructors produces code that causes
non-termination if you use 'read' to evaluate them
( (head (reads x)) is cool tho.)
==> The inferred assoc for :++ below left & the derived
Read instance should fail to terminate (with ghc-4.xx,
this is exemplified by having the stack overflow.)
==> The inferred assoc for :++ below left & the derived
Read instance should fail to terminate (with ghc-4.xx,
this is exemplified by having the stack overflow.)
NEW: the new H98 spec says that we ignore associativity when
parsing, so it terminates fine
-}
-- infixl 9 :++
data T = T1 | T :++ T deriving (Eq,Show, Read)
......
Stack space overflow: current size 1048576 bytes.
Use `+RTS -Ksize' to increase it.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment