Commit b83eab40 authored by Simon Marlow's avatar Simon Marlow
Browse files

add missing source files for tests

parent fd86b090
module Test2 where
f x = g x
g y = y
mymap f [] = []
mymap f (x:xs) = f x:mymap f xs
main = mapM_ putStrLn $ mymap ('a':) ["hello","bye"]
data T a b = T (a -> b)
f g y = () where x = T g
f xs = head xs
g xs = f xs
main = g []
import Control.Exception
main = evaluate (error "foo")
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