aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/Parens/arrow-command-infix-rhs-nested.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE Arrows #-}
module M where

x = proc _ -> do
            [] -<< []
           `a` (([] -<< []) + ([] -< []))