ghc-exactprint-1.9.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"