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

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

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