testsuite/tests/th/T13473.hs


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

{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
module Main where

import Language.Haskell.TH
import T13473a

[quoter|y|] = 1

main :: IO ()
main = do
  let $(varP $ mkName "x") = 1 in print x
  print y