Fix recompilation bug with default class methods (#15970)
[ghc.git] / testsuite / tests / driver / T11182.hs
1 {-# LANGUAGE Strict #-}
2 -- | Strict should imply StrictData
3 module Main where
4
5 data Lazy a = Lazy ~a
6
7 main :: IO ()
8 main =
9 case Lazy undefined of
10 Lazy _ -> putStrLn "Lazy"