blob: b57bbe9eaa1f48c78bb8e4968419249fcfab264e (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# OPTIONS_GHC -O -fno-full-laziness #-}
module T11155 where
foo :: Bool
{-# NOINLINE foo #-}
foo = error "rk"
bar x = let t :: Char
t = case foo of { True -> 'v'; False -> 'y' }
in [t]
|