testsuite/tests/th/T19988.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TypeApplications #-}
module THSpliceType where

import Language.Haskell.TH

foo :: Q Exp
foo =
  let myType = [t| Int |]
    in [| id @ $myType |]