From db45ea9d8cb8fd199de2239b6bc28aff3ad53cce Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Tue, 27 Nov 2012 16:10:45 +0100 Subject: Allow arbitrary keys, update some tests --- src/Hakyll/Web/Template/Read.hs | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) (limited to 'src/Hakyll') diff --git a/src/Hakyll/Web/Template/Read.hs b/src/Hakyll/Web/Template/Read.hs index f8583ff..7dfe003 100644 --- a/src/Hakyll/Web/Template/Read.hs +++ b/src/Hakyll/Web/Template/Read.hs @@ -6,12 +6,11 @@ module Hakyll.Web.Template.Read -------------------------------------------------------------------------------- -import Data.List (isPrefixOf) -import Data.Char (isAlphaNum) +import Data.List (isPrefixOf) -------------------------------------------------------------------------------- -import Hakyll.Web.Template.Internal +import Hakyll.Web.Template.Internal -------------------------------------------------------------------------------- @@ -39,4 +38,4 @@ readTemplate = Template . readTemplate' then Just (key, drop 1 rest) else Nothing - validKeyChar x = isAlphaNum x || x == ' ' + validKeyChar x = x `notElem` ['$', '\n', '\r'] -- cgit v1.2.3