Fix #11287.
[ghc.git] / testsuite / tests / th / T10697_decided_3.hs
1 {-# LANGUAGE TemplateHaskell #-}
2 module Main where
3
4 import Language.Haskell.TH
5
6 data T = T {-# UNPACK #-} !Int !Int Int
7
8 $(return [])
9
10 main :: IO ()
11 main = putStrLn $(reifyConStrictness 'T >>= stringE . show)