path: root/testsuite/tests/ghci/should_run/T21300.script

:set -XArrows -XBlockArguments
import Control.Arrow
:set -ddump-tc -dsuppress-uniques
(proc 'a' -> (| id \'b' 'c'-> returnA -< 'c' |) 'b' 'c') 'a'