I commited a change to
beuteltier/Beuteltier/Types/Util.hs (“[…] Hashable update”). I replaced the
Hashable instances for
MetaData with a single, better optimized function:
objHash :: Applicative f => ObjectGen f -> f Int -- ^ Two 'ObjectGen's hashes are a first indication of whether they are 'Equivalent' objHash o = fmap hash $ (,) <$> (Set.toList . (^. mTags) <$> o ^. oMeta) <*> (Map.keys <$> o ^. oContent)
The new implementation allows computation of hashes without calling
generateObject (that function is evil — it makes sure the entire
Object is “in RAM” (it isn´t actually, of course (because haskell is lazy)—but I have no guarantee of that)).