ghc-exactprint-0.5.1.0: tests/examples/ghc8/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"