hunt-searchengine-0.3.0.0: src/Data/Typeable/Binary.hs

{-# OPTIONS -fno-warn-orphans #-}

-- ----------------------------------------------------------------------------
{- |
'Binary' instance for 'TypeRep'.
-}
-- ----------------------------------------------------------------------------

module Data.Typeable.Binary where

import           Control.Applicative

import           Data.Binary
import           Data.Typeable.Internal

import           GHC.Fingerprint.Binary ()

-- ------------------------------------------------------------

instance Binary TypeRep where
  put (TypeRep fp tyCon ts) = put fp >> put tyCon >> put ts
  get = TypeRep <$> get <*> get <*> get

instance Binary TyCon where
  put (TyCon hash package modul name) = put hash >> put package >> put modul >> put name
  get = TyCon <$> get <*> get <*> get <*> get

-- ------------------------------------------------------------