Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Allow underscores in section names

  • Loading branch information...
commit a11d63e73198f6d757463550c22a2cfabe506324 1 parent 25516a0
@sol sol authored
Showing with 2 additions and 2 deletions.
  1. +1 −1  src/Data/Ini/Reader/Internals.hs
  2. +1 −1  tst/ReaderI.hs
View
2  src/Data/Ini/Reader/Internals.hs
@@ -71,7 +71,7 @@ eatWhiteSpace = many $ oneOf " \t"
-- surrounded by any number of white space characters (see 'eatWhiteSpace').
secParser :: Parser IniFile
secParser = let
- validSecNameChrs = ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9'] ++ "-/@"
+ validSecNameChrs = ['a'..'z'] ++ ['A'..'Z'] ++ ['0'..'9'] ++ "_-/@"
in do
char '['
eatWhiteSpace
View
2  tst/ReaderI.hs
@@ -42,7 +42,7 @@ case_secParserAllowedChars4 = let
case_secParserDisallowedChars1 = let
expected = Left "bad"
- actual = p2E secParser "sec" "[_foo]\n"
+ actual = p2E secParser "sec" "[$foo]\n"
in expected @=? actual
case_secParserDropSpace = let
Please sign in to comment.
Something went wrong with that request. Please try again.