testsuite/tests/simplCore/should_compile/T11155.hs


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]