path: root/testsuite/tests/deSugar/should_compile/T4870.hs

module T4870 where

import T4870a

data D = D

instance C D where
  c x = x

{-# SPECIALIZE f :: D #-}