diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 23:42:11 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-01-12 23:42:11 +0100 |
| commit | 554ef99207731fb5c3d26e176b04c6c910996bc1 (patch) | |
| tree | 5f8db9ca3a755df33747c6e760ce87aea8b90939 /provider/posts/beuteltier-3.md | |
| parent | 4c4f2dcb8ff5c2dfd7758f6dc4d2324f9b344103 (diff) | |
| download | dirty-haskell.org-554ef99207731fb5c3d26e176b04c6c910996bc1.tar dirty-haskell.org-554ef99207731fb5c3d26e176b04c6c910996bc1.tar.gz dirty-haskell.org-554ef99207731fb5c3d26e176b04c6c910996bc1.tar.bz2 dirty-haskell.org-554ef99207731fb5c3d26e176b04c6c910996bc1.tar.xz dirty-haskell.org-554ef99207731fb5c3d26e176b04c6c910996bc1.zip | |
no more lineNumbers
Diffstat (limited to 'provider/posts/beuteltier-3.md')
| -rw-r--r-- | provider/posts/beuteltier-3.md | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/provider/posts/beuteltier-3.md b/provider/posts/beuteltier-3.md index 79e105a..9b699c1 100644 --- a/provider/posts/beuteltier-3.md +++ b/provider/posts/beuteltier-3.md | |||
| @@ -8,7 +8,7 @@ I commited a change to `beuteltier/Beuteltier/Types/Util.hs` ("[…] Hashable up | |||
| 8 | replaced the `Hashable` instances for `Object` and `MetaData` with a single, better | 8 | replaced the `Hashable` instances for `Object` and `MetaData` with a single, better |
| 9 | optimized function: | 9 | optimized function: |
| 10 | 10 | ||
| 11 | ~~~ {.haskell .numberLines} | 11 | ~~~ {.haskell} |
| 12 | objHash :: Applicative f => ObjectGen f -> f Int | 12 | objHash :: Applicative f => ObjectGen f -> f Int |
| 13 | -- ^ Two 'ObjectGen's hashes are a first indication of whether they are 'Equivalent' | 13 | -- ^ Two 'ObjectGen's hashes are a first indication of whether they are 'Equivalent' |
| 14 | objHash o = fmap hash $ (,) <$> (Set.toList . (^. mTags) <$> o ^. oMeta) <*> (Map.keys <$> o ^. oContent) | 14 | objHash o = fmap hash $ (,) <$> (Set.toList . (^. mTags) <$> o ^. oMeta) <*> (Map.keys <$> o ^. oContent) |