path: root/testsuite/tests/patsyn/should_compile/T8584-1.hs

{-# LANGUAGE PatternSynonyms #-}
module ShouldCompile where

pattern Single :: a -> [a]
pattern Single x = [x]