aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/ViewPatterns/viewpatterns-patbind.hs

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

module ViewPatternsPatBind where

project :: a -> a
project x = x

bound :: a
(project -> bound) = project value
  where
    value = error "fixture"