summaryrefslogtreecommitdiff
path: root/src/Text/Hakyll/Render
diff options
context:
space:
mode:
authorJasper Van der Jeugt <jaspervdj@gmail.com>2010-01-19 15:50:04 +0100
committerJasper Van der Jeugt <jaspervdj@gmail.com>2010-01-19 15:50:04 +0100
commitfe77089955dbf1002496e34824da13bfaf64a898 (patch)
tree8df1a154b5ae23e9e12045490ba49546dbf98b18 /src/Text/Hakyll/Render
parentf5a6c4974d561e05b2882d38b54b45188ee31185 (diff)
downloadhakyll-fe77089955dbf1002496e34824da13bfaf64a898.tar.gz
Made page parser a little less strict.
Diffstat (limited to 'src/Text/Hakyll/Render')
-rw-r--r--src/Text/Hakyll/Render/Internal.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/src/Text/Hakyll/Render/Internal.hs b/src/Text/Hakyll/Render/Internal.hs
index 89a2709..d0b5814 100644
--- a/src/Text/Hakyll/Render/Internal.hs
+++ b/src/Text/Hakyll/Render/Internal.hs
@@ -13,7 +13,7 @@ import qualified Data.Map as M
import Text.Hakyll.Context (Context, ContextManipulation)
import Control.Monad.Reader (liftIO)
import Data.List (isPrefixOf, foldl')
-import Data.Char (isAlpha)
+import Data.Char (isAlphaNum)
import Data.Maybe (fromMaybe)
import Control.Parallel.Strategies (rdeepseq, ($|))
@@ -33,7 +33,7 @@ substitute escaper string context
| otherwise = head string : substitute' tail'
where
tail' = tail string
- (key, rest) = span isAlpha tail'
+ (key, rest) = span isAlphaNum tail'
replacement = fromMaybe ('$' : key) $ M.lookup key context
substituteKey = replacement ++ substitute' rest
substitute' str = substitute escaper str context