Commit 5aab5caa authored by Simon Peyton Jones's avatar Simon Peyton Jones
Browse files

Test Trac #5283

parent 7d672220
{-# LANGUAGE Arrows #-}
-- Failed in ghci
module T where
import Prelude
import Control.Arrow
mapAC :: Arrow arr => Integer -> arr (env, b) c -> arr (env, [b]) [c]
mapAC n farr = go 1
where
go i | i == succ n = arr (\(_env, []) -> [])
| otherwise = proc ~(env, b : bs) ->
do c <- farr -< (env, b)
cs <- go (succ i) -< (env, bs)
returnA -< c : cs
t :: Arrow arr => arr [a] [a]
t = proc ys ->
(| (mapAC 3) (\y -> returnA -< y) |) ys
......@@ -15,3 +15,4 @@ test('arrowlet1', normal, compile, [''])
test('arrowrec1', normal, compile, [''])
test('arrowpat', normal, compile, [''])
test('T3964', normal, compile, [''])
test('T5283', 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