Commit 0ad3cf34 authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #4851

parent 26c4300a
{-# LANGUAGE Arrows, RebindableSyntax #-}
module T4851 where
import Prelude hiding ( id, (.) )
import Control.Category ( Category(..) )
import Control.Arrow
garbage x =
proc b ->
do rec (c, d) <- undefined -< (b, d)
returnA -< c
......@@ -28,3 +28,4 @@ test('T303', normal, compile, [''])
test('DoRestrictedM', normal, compile, [''])
test('DoParamM', reqlib('mtl'), compile_fail, [''])
test('T5038', normal, compile_and_run, [''])
test('T4851', normal, compile, [''])
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