Fix #1 by removing check on dash in regex parser

There are no illegal occurrences of `-` in a bracket expression.
Those that are separators of a range (e.g. `a-z`) are simply standing
for themselves.  A dash can even be an start or end point of a range,
as in `[--@]`.

Author: andreasabel

lib/Text/Regex/TDFA/ReadRegex.hs

@@ -11,12 +11,12 @@ module Text.Regex.TDFA.ReadRegex (parseRegex) where
 
 import Text.Regex.TDFA.Pattern {- all -}
 import Text.ParserCombinators.Parsec((<|>), (<?>),
-  unexpected, try, runParser, many, getState, setState, CharParser, ParseError,
+  try, runParser, many, getState, setState, CharParser, ParseError,
   sepBy1, option, notFollowedBy, many1, lookAhead, eof, between,
   string, noneOf, digit, char, anyChar)
 
 import Control.Applicative (asum)
-import Control.Monad(liftM, when, guard)
+import Control.Monad (liftM, guard)
 import qualified Data.Set as Set(fromList)
 
 -- | An element inside @[...]@, denoting a character class.
@@ -168,9 +168,6 @@ p_set_elem_range = try $ do
 p_set_elem_char :: P BracketElement
 p_set_elem_char = do
   c <- noneOf "]"
-  when (c == '-') $ do
-    atEnd <- (lookAhead (char ']') >> return True) <|> (return False)
-    when (not atEnd) (unexpected "A dash is in the wrong place in a bracket")
   return (BEChar c)
 
 -- | Fail when 'BracketElement' is invalid, e.g. empty range @1-0@.