1 2 3 4 5
{-# LANGUAGE TemplateHaskell, PatternSynonyms #-} module T8759a where foo = [d| pattern Q = False |]