ghc-exactprint-1.14.3.0: tests/examples/transform/PatSynGraft.hs.expected

{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE ViewPatterns #-}
module PatSynGraft where

pattern P :: Int -> Int
pattern P x <- (subtract 1 -> x) where
  P a = a
    + b