Add support for colons (':') in identifier names.

Data/Configurator.hs

@@ -416,8 +416,8 @@ empty = Config "" $ unsafePerformIO $ do
 -- > HerList = [1, "foo", off]
 --
 -- A name must begin with a Unicode letter, which is followed by zero
--- or more of a Unicode alphanumeric code point, hyphen \"@-@\", or
--- underscore \"@_@\".
+-- or more of a Unicode alphanumeric code point, hyphen \"@-@\",
+-- underscore \"@_@\", or colon \"@:@\".
 --
 -- Bindings are created or overwritten in the order in which they are
 -- encountered.  It is legitimate for a name to be bound multiple

Data/Configurator/Parser.hs

@@ -75,7 +75,7 @@ ident = do
     throw (ParseError "" $ "reserved word (" ++ show n ++ ") used as identifier")
   return n
  where
-  isCont c = isAlphaNum c || c == '_' || c == '-'
+  isCont c = isAlphaNum c || c == '_' || c == '-' || c == ':'
 
 value :: Parser Value
 value = mconcat [

tests/Test.hs

@@ -105,6 +105,15 @@ loadTest =
     deep <- lookup cfg "ag.q-e.i_u9.a"
     assertEqual "deep bool" deep (Just False :: Maybe Bool)
 
+    adcolon <- lookup cfg "a:d"
+    assertEqual "colon identifiers" adcolon (Just False :: Maybe Bool)
+
+    abc <- lookup cfg "a:b:c"
+    assertEqual "multiple colon identifiers" abc (Just "hello" :: Maybe Text)
+
+    c <- lookup cfg "c:"
+    assertEqual "colon identifiers without suffix or space" c (Just 1 :: Maybe Int)
+
 typesTest :: Assertion
 typesTest =
   withLoad "pathological.cfg" $ \cfg -> do

tests/resources/pathological.cfg

@@ -37,3 +37,7 @@ ba = "$(HOME)"
 xs = [1,2,3]
 
 c = "x"
+
+a:d = false
+a:b:c = "hello"
+c:=1