haskell-tools-builtin-refactorings-1.0.0.0: examples/Refactor/RenameDefinition/PatternSynonym.hs

{-# LANGUAGE PatternSynonyms #-}
module Refactor.RenameDefinition.PatternSynonym where

data Type = App String [Type]

pattern Arrow t1 t2 = App "->" [t1, t2]