summaryrefslogtreecommitdiff
path: root/testsuite/tests/th/T10697_decided_1.hs
blob: 241cec3d38c8241ecc201bd8759cd921ef35a6e0 (plain)
1
2
3
4
5
6
7
8
9
10
11
{-# LANGUAGE TemplateHaskell #-}
module Main where

import Language.Haskell.TH

data T = T {-# UNPACK #-} !Int !Int Int

$(return [])

main :: IO ()
main = putStrLn $(reifyConStrictness 'T >>= stringE . show)