testsuite/tests/th/T15502.hs


1
2
3
4
5
6
7
8
9

{-# LANGUAGE TemplateHaskell #-}

module T15502 where

import Language.Haskell.TH.Syntax  (Lift(lift))

main = print ( $( lift (toInteger (maxBound :: Int) + 1) )
             , $( lift (minBound :: Int) )
             )