testsuite/tests/th/T8954.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

{-# LANGUAGE TemplateHaskell, MagicHash, UnboxedTuples #-}

module T8954 where

import Language.Haskell.TH

$( do _ <- reify '(##)
      _ <- reify '(#,#)
      _ <- reify ''(##)
      _ <- reify ''(#,#)
      _ <- reify '()
      _ <- reify ''()
      _ <- reify '[]
      _ <- reify ''[]
      return [] )