blob: f18b672ab552834abc7b7c13942b518192fd2962 (
plain)
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
|