Fix #15550 by quoting RULE names during TH conversion
[ghc.git] / testsuite / tests / th / T15550.hs
1 {-# LANGUAGE TemplateHaskell #-}
2 module T15550 where
3
4 $([d| myId :: a -> a
5 myId x = x
6 {-# NOINLINE [1] myId #-}
7 {-# RULES "myId" forall x. myId x = x #-}
8 |])