aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/RecursiveDo/mdo-view-pattern.hs

{- ORACLE_TEST pass -}
{-# LANGUAGE RecursiveDo #-}
{-# LANGUAGE ViewPatterns #-}

module MDoViewPattern where

f :: a -> a
f (mdo pure x -> y) = y