beuteltier-3.md

1 files changed, 19 insertions, 0 deletions

diff --git a/provider/posts/beuteltier-3.md b/provider/posts/beuteltier-3.md
new file mode 100644
index 0000000..79e105a
--- /dev/null
+++ b/provider/posts/beuteltier-3.md
@@ -0,0 +1,19 @@
+---
+title: An Update to the Type Level Utilities of an Overly Complicated Feedreader
+published: 2015-08-12
+tags: Beuteltier
+---
+
+I commited a change to `beuteltier/Beuteltier/Types/Util.hs` ("[…] Hashable update"). I
+replaced the `Hashable` instances for `Object` and `MetaData` with a single, better
+optimized function:
+
+~~~ {.haskell .numberLines}
+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)).