ghc-exactprint-0.6.4: tests/examples/ghc90/ParserArrowLambdaCase.hs

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

import Control.Arrow

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