Commit 34d3bca7 authored by SamAnklesaria's avatar SamAnklesaria
Browse files

trac #836 tests

parent 644e5d9f
......@@ -20,6 +20,7 @@ test('rebindable6', normal, compile_fail, [''])
test('rebindable7', normal, compile_and_run, [''])
test('rebindable8', normal, compile, [''])
test('rebindable9', normal, compile, [''])
test('rebindable10', normal, compile_and_run, [''])
test('T303', normal, compile, [''])
......
{-# LANGUAGE RebindableSyntax #-}
module Main where
import Prelude
ifThenElse :: Int -> String -> String -> String
ifThenElse a b c = case a > 0 of
True -> b
False -> c
main :: IO ()
main = do
print $ if -5 then "this fails" else "this works"
print $ if 5 then "this works" else "this fails"
\ No newline at end of file
Supports Markdown
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