Ticket #1080: Ar.hs

File Ar.hs, 324 bytes (added by simonpj, 8 years ago)
Line 
1{-# OPTIONS_GHC -farrows -fno-monomorphism-restriction -fglasgow-exts #-}
2
3module Foo where
4
5import Control.Arrow
6
7data Pair a b = a :# b
8
9counter =
10   proc x ->
11     do t :# _ <- undefined -< x
12        rec (cnt:: Int) <- undefined -< undefined
13            undefined -< show cnt
14        returnA -< undefined
15