ghc-exactprint-1.9.0.0: tests/examples/pre-ghc910/ParserArrowLambdaCase.hs
{-# LANGUAGE Arrows, LambdaCase #-}
module ParserArrowLambdaCase where
import Control.Arrow
foo :: () -> ()
foo = proc () -> (| id (\case
() -> () >- returnA) |) ()
{-# LANGUAGE Arrows, LambdaCase #-}
module ParserArrowLambdaCase where
import Control.Arrow
foo :: () -> ()
foo = proc () -> (| id (\case
() -> () >- returnA) |) ()