testsuite/tests/th/T20842.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE TemplateHaskell, GADTs #-}
module Main where

import Language.Haskell.TH

main :: IO ()
main = do
  x <- [d| data MyData where { D1 :: MyData; D2 :: Bool -> MyData } |]
  putStrLn $ pprint x