From 59b6f01218eb2fbd36cb9fec6a3413093171ccda Mon Sep 17 00:00:00 2001 From: Jasper Van der Jeugt Date: Mon, 27 Oct 2014 12:20:31 +0100 Subject: Better functions in templates --- src/Hakyll/Core/Util/Parser.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Hakyll/Core/Util') diff --git a/src/Hakyll/Core/Util/Parser.hs b/src/Hakyll/Core/Util/Parser.hs index 25494bd..c5789ed 100644 --- a/src/Hakyll/Core/Util/Parser.hs +++ b/src/Hakyll/Core/Util/Parser.hs @@ -16,7 +16,7 @@ import Text.Parsec.String (Parser) -------------------------------------------------------------------------------- metadataKey :: Parser String metadataKey = do - i <- (:) <$> P.letter <*> (P.many $ P.alphaNum <|> P.oneOf " _-.") + i <- (:) <$> P.letter <*> (P.many $ P.alphaNum <|> P.oneOf "_-.") if i `elem` reservedKeys then mzero else return i -- cgit v1.2.3