{-# OPTIONS_GHC -fwarn-unused-matches #-}
{-# LANGUAGE NoMonomorphismRestriction #-}

module T9824 where

foo = [p| (x, y) |]