path: root/testsuite/tests/th/T2713.hs

{-# LANGUAGE TemplateHaskell #-}
module Fixity where

class MyClass a where
    (.*.) :: a -> a -> a

$( [d| x = undefined |] )

infixr 3 .*.