Commit 45270005 authored by simonpj's avatar simonpj
Browse files

[project @ 2005-03-10 09:00:04 by simonpj]

Add another infix operator test
parent d2b8e77f
......@@ -201,6 +201,7 @@ test('tc188', normal, compile, [''])
test('tc189', normal, compile, [''])
test('tc190', normal, compile, [''])
test('tc191', normal, compile, [''])
test('tc192', normal, compile, [''])
test('LoopOfTheDay1', normal, compile, [''])
test('LoopOfTheDay2', normal, compile, [''])
......
{-# OPTIONS -fglasgow-exts -farrows #-}
module ShouldCompile where
import Control.Arrow
comp1 :: Arrow (~>) => (b~>c) -> (c~>d) -> (b~>d)
comp1 f g = proc x -> do
b <- f -< x
g -< b
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