[Yhc] Possible bug with floats

[Neil Mitchell]

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