Hi,
y x = case x of
1 -> 10
2 -> 20
3 -> 30
_ -> 0
Now gives:
Vt1.y v229 =
case (YHC.Internal._eqFloat v229 1.0) of
Prelude.True -> 10.0
Prelude.False ->
case (YHC.Internal._eqFloat v229 2.0) of
Prelude.True -> 20.0
Prelude.False ->
case (YHC.Internal._eqFloat v229 3.0) of
Prelude.True -> 30.0
Prelude.False -> 0.0
I had a problem with the semantics of nested fatbar's that allow
failure to escape, with the help of Tom and this example I've tracked
it down and squashed that bug. I just pushed the fix.
Thanks
Neil
_______________________________________________
Yhc mailing list
[email protected]
http://www.haskell.org/mailman/listinfo/yhc
