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

{-# LANGUAGE TemplateHaskell #-}
module T4124 where

class Storable a where
data X = X
[d| instance Storable $( [t| X |] ) where |]