blob: 99b9992c5966d44b04271ec85b494ced5daf2af5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
|
{-# LANGUAGE TemplateHaskell #-}
module T21547 where
import T21547A
data T a = T a deriving (Show)
main :: IO ()
main = do
let x = $$(foo [|| T () ||])
let y = $$(foo [|| F () ||])
return ()
|