Fix #11287.
[ghc.git] / testsuite / tests / th / T10796b.hs
1 {-# LANGUAGE TemplateHaskell #-}
2 module T10796b where
3
4 import Data.Set (Set, fromList)
5 import Language.Haskell.TH.Quote (dataToPatQ)
6
7 badPattern :: Set Char -> Set Char
8 badPattern s@($(dataToPatQ (const Nothing) (fromList "test"))) = s