testsuite/tests/th/T10796b.hs


1
2
3
4
5
6
7
8

{-# LANGUAGE TemplateHaskell #-}
module T10796b where

import Data.Set (Set, fromList)
import Language.Haskell.TH.Quote (dataToPatQ)

badPattern :: Set Char -> Set Char
badPattern s@($(dataToPatQ (const Nothing) (fromList "test"))) = s