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
 replaced the `Hashable` instances for `Object` and `MetaData` with a single, better
 optimized function:
-~~~ {.haskell .numberLines}
+~~~ {.haskell}
 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)

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)