path: root/testsuite/tests/quotes/T9824.hs

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

module T9824 where

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