diff options
Diffstat (limited to 'src/Text/Hakyll/Render/Internal.hs')
| -rw-r--r-- | src/Text/Hakyll/Render/Internal.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/Text/Hakyll/Render/Internal.hs b/src/Text/Hakyll/Render/Internal.hs index d4c1697..89a2709 100644 --- a/src/Text/Hakyll/Render/Internal.hs +++ b/src/Text/Hakyll/Render/Internal.hs @@ -30,10 +30,10 @@ substitute _ [] _ = [] substitute escaper string context | "$$" `isPrefixOf` string = escaper ++ substitute' (tail tail') | "$" `isPrefixOf` string = substituteKey - | otherwise = (head string) : (substitute' tail') + | otherwise = head string : substitute' tail' where tail' = tail string - (key, rest) = break (not . isAlpha) tail' + (key, rest) = span isAlpha tail' replacement = fromMaybe ('$' : key) $ M.lookup key context substituteKey = replacement ++ substitute' rest substitute' str = substitute escaper str context @@ -86,7 +86,7 @@ writePage :: Page -> Hakyll () writePage page = do additionalContext' <- askHakyll additionalContext let destination = toDestination url - context = additionalContext' `M.union` (M.singleton "root" $ toRoot url) + context = additionalContext' `M.union` M.singleton "root" (toRoot url) makeDirectories destination -- Substitute $root here, just before writing. liftIO $ writeFile destination $ finalSubstitute (getBody page) context |