ghc-exactprint-1.14.0.0: tests/examples/pre-ghc910/T11182.hs
{-# LANGUAGE Strict #-}
-- | Strict should imply StrictData
module Main where
data Lazy a = Lazy ~a
main :: IO ()
main =
case Lazy undefined of
Lazy _ -> putStrLn "Lazy"
{-# LANGUAGE Strict #-}
-- | Strict should imply StrictData
module Main where
data Lazy a = Lazy ~a
main :: IO ()
main =
case Lazy undefined of
Lazy _ -> putStrLn "Lazy"