diff options
Diffstat (limited to 'src/Text/Hakyll/Renderables.hs')
| -rw-r--r-- | src/Text/Hakyll/Renderables.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Hakyll/Renderables.hs b/src/Text/Hakyll/Renderables.hs index 5832a09..9e62a91 100644 --- a/src/Text/Hakyll/Renderables.hs +++ b/src/Text/Hakyll/Renderables.hs @@ -40,8 +40,8 @@ instance Renderable CustomPage where getURL = customPageURL toContext page = do values <- mapM (either return id . snd) (customPageContext page) - return $ M.fromList $ [ ("url", customPageURL page) - ] ++ zip (map fst $ customPageContext page) values + let pairs = zip (map fst $ customPageContext page) values + return $ M.fromList $ ("url", customPageURL page) : pairs -- | PagePath is a class that wraps a FilePath. This is used to render Pages -- without reading them first through use of caching. @@ -96,4 +96,4 @@ instance (Renderable a, Renderable b) return $ c1 `M.union` c2 toContext (CombinedRenderableWithURL url a b) = do c <- toContext (CombinedRenderable a b) - return $ (M.singleton "url" url) `M.union` c + return $ M.singleton "url" url `M.union` c |