Permalink
Browse files

Allow metadata keys to include digits, _, -.

Closes #328.
  • Loading branch information...
1 parent f3ce6fb commit bb7bf4f11025957f8db6f6266a15caf986bdbb16 John MacFarlane committed Nov 27, 2012
Showing with 3 additions and 1 deletion.
  1. +3 −1 Network/Gitit/Page.hs
View
@@ -88,7 +88,9 @@ pBlankline = try $ many (oneOf " \t") >> newline
pMetadataLine :: GenParser Char st (String, String)
pMetadataLine = try $ do
- ident <- many1 letter
+ first <- letter
+ rest <- many (letter <|> digit <|> oneOf "-_")
+ let ident = first:rest
skipMany (oneOf " \t")
_ <- char ':'
rawval <- many $ noneOf "\n\r"

0 comments on commit bb7bf4f

Please sign in to comment.