testsuite/tests/th/T20711.hs


1
2
3
4
5
6
7
8
9
10
11

{-# LANGUAGE TemplateHaskell #-}
module Main where

import Language.Haskell.TH

main :: IO ()
main = do
  x <- [d| f (-1) = () |]
  putStrLn $ pprint x
  y <- [d| f (-10) = () |]
  putStrLn $ pprint y