aihc-parser-1.0.0.2: test/Test/Fixtures/oracle/PatternSynonyms/pattern-synonyms-explicit-where-view-pattern-layout.hs

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

module PatternSynonymsExplicitWhereViewPatternLayout where

pattern P r <- (T ((2 / pi *) -> r))
  where
    P r = T $ r * pi / 2