path: root/testsuite/tests/parser/should_compile/ParserArrowLambdaCase.hs

{-# LANGUAGE Arrows, LambdaCase #-}
module ParserArrowLambdaCase where

import Control.Arrow

foo :: () -> ()
foo = proc () -> (| id (\case
  () -> () >- returnA) |) ()