ghc-exactprint-0.6.3: tests/examples/pre-ghc810/arrowfail003.hs

{-# LANGUAGE Arrows #-}
-- Arrow commands where an expression is expected

module ShouldFail where

import Control.Arrow

foo = returnA -< []
bar = (|zeroArrow|)