Permalink
Browse files

allow _ in names

  • Loading branch information...
1 parent 187d28f commit ae01e70e01cb43247d0b82ddb02ba718f600e2b1 @singpolyma committed Aug 23, 2012
Showing with 1 addition and 1 deletion.
  1. +1 −1 mustache2hs.hs
View
@@ -108,7 +108,7 @@ parser = do
if n == Just '{' then fail "singlebrace not match {{" else return c
)
txt = MuText <$> takeWhile1 (/='{')
- name = takeWhile1 (\c -> isAlpha c || isDigit c)
+ name = takeWhile1 (\c -> isAlpha c || isDigit c || c == '_')
mustache ws f = do
_ <- char '{'
_ <- char '{'

0 comments on commit ae01e70

Please sign in to comment.