Fix #1 (again) with proper test

Ranges beginning with `-` were not recognized.

Author: andreasabel

cabal.project

@@ -0,0 +1,3 @@
+packages: .
+
+write-ghc-environment-files: always

lib/Text/Regex/TDFA.hs

@@ -124,6 +124,9 @@ a '=~' b :: (String, String, String, [String])
 >>> getAllTextMatches ("john anne yifan" =~ "[a-z]+") :: [String]
 ["john","anne","yifan"]
 
+>>> getAllTextMatches ("* - . a + z" =~ "[--z]+") :: [String]
+["-",".","a","z"]
+
 @
 
 = Feature support

lib/Text/Regex/TDFA/ReadRegex.hs

@@ -120,7 +120,7 @@ p_bracket :: P Pattern
 p_bracket = (char '[') >> ( (char '^' >> p_set True) <|> (p_set False) )
 
 p_set :: Bool -> P Pattern
-p_set invert = do initial <- (option "" ((char ']' >> return "]") <|> (char '-' >> return "-")))
+p_set invert = do initial <- option "" (char ']' >> return "]")
                   values <- if null initial then many1 p_set_elem else many p_set_elem
                   _ <- char ']'
                   ci <- char_index
@@ -161,7 +161,7 @@ p_set_elem_coll =  liftM BEColl $
 
 p_set_elem_range :: P BracketElement
 p_set_elem_range = try $ do
-  start <- noneOf "]-"
+  start <- noneOf "]"
   _  <- char '-'
   end <- noneOf "]"
   return $ BERange start end