testsuite/tests/ghc-regress/rebindable/T5038.hs


1
2
3
4
5
6
7
8
9
10

{-# LANGUAGE RebindableSyntax #-}
module Main (main) where

import Prelude 

ifThenElse True t f = f
ifThenElse False t f = t

main = print (if True then 1 else 2 :: Int)
-- Should print 2!