{-# LANGUAGE PatternSynonyms #-}
{-# LANGUAGE TemplateHaskell #-}

module T8759a where

foo = [d| pattern Q = False |]