module Hoogle.DataBase.TypeSearch.EntryInfo where
import Data.Binary.Defer
import Data.Binary.Defer.Index
import Hoogle.TypeSig.All
import Hoogle.Item.All
import Data.Typeable
data EntryInfo = EntryInfo
{entryInfoEntries :: [Link Entry]
,entryInfoArity :: Int
,entryInfoContext :: TypeContext
,entryInfoAlias :: [String]
} deriving (Eq,Show)
instance Ord EntryInfo where
compare (EntryInfo [] x1 x2 x3) (EntryInfo [] y1 y2 y3) = compare (x1,x2,x3) (y1,y2,y3)
compare _ _ = error "Ord EntryInfo, can't compare EntryInfo's with items in them"
typename_EntryInfo = mkTyCon "Hoogle.DataBase.TypeSearch.Result.EntryInfo"
instance Typeable EntryInfo
where typeOf _ = mkTyConApp typename_EntryInfo []
instance BinaryDefer EntryInfo where
put (EntryInfo a b c d) = put4 a b c d
get = get4 EntryInfo