1 2 3 4 5 6
-- Pattern synonyms {-# LANGUAGE PatternSynonyms #-} module ShouldCompile where pattern Single x = [x]