summaryrefslogtreecommitdiff
path: root/testsuite/tests/ghc-regress/th/TH_viewPatPrint.hs
blob: f0ef779691f2f95a978739a92b5d62b77ba4a539 (plain)
1
2
3
4
5
6
7
8
9
10
{-# LANGUAGE ViewPatterns, QuasiQuotes #-}

module Main where

import Language.Haskell.TH

main = do
  p <- runQ [p|(id -> x)|]
  print p
  putStrLn (pprint p)