Commit 9ce49f6c authored by simonpj's avatar simonpj
Browse files

Test Trac #5038

parent b534b270
{-# 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!
......@@ -27,3 +27,4 @@ test('T303', normal, compile, [''])
# Tests from Oleg
test('DoRestrictedM', normal, compile, [''])
test('DoParamM', reqlib('mtl'), compile_fail, [''])
test('T5038', normal, compile_and_run, [''])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment