path: root/testsuite/tests/parser/should_fail/cmdFail007.hs

{-# LANGUAGE Arrows #-}
module CmdFail007 where

f = proc x ->
      (_ -< _) { a = _ -< _,
                 b = _ -< _,
                 c = _ -< _ }