shaniqua-plugins/testsuite/dynload/should_fail_2/api/API.hs

{-# OPTIONS -fglasgow-exts #-}

module API where

import Data.Typeable
import GHC.Base

data Interface = Interface { 
        function :: String
   }
        
instance Typeable Interface where
#if __GLASGOW_HASKELL__ >= 603
    typeOf i = mkTyConApp (mkTyCon "API.Interface") []
#else
    typeOf i = mkAppTy (mkTyCon "API.Interface") []
#endif

plugin :: Interface
plugin = Interface  { function = "goodbye" }

unsafeCoerce = unsafeCoerce#