diff --git a/htoml-megaparsec.cabal b/htoml-megaparsec.cabal
--- a/htoml-megaparsec.cabal
+++ b/htoml-megaparsec.cabal
@@ -1,5 +1,5 @@
 name:                     htoml-megaparsec
-version:                  1.0.1.5
+version:                  1.0.1.6
 synopsis:                 Parser for TOML files
 description:              TOML is an obvious and minimal format for config files.
                           This package provides a TOML parser
diff --git a/src/Text/Toml/Parser.hs b/src/Text/Toml/Parser.hs
--- a/src/Text/Toml/Parser.hs
+++ b/src/Text/Toml/Parser.hs
@@ -114,16 +114,14 @@
 
 -- | Parses a table array header.
 tableArrayHeader :: (TomlM m) => Parser m [Text]
-tableArrayHeader = between (twoChar '[') (twoChar ']') headerValue
-  where
-    twoChar c = count 2 (char c)
+tableArrayHeader = between (string "[[") (string "]]") headerValue
 
 
 -- | Parses the value of any header (names separated by dots), into a list of 'Text'.
 headerValue :: (TomlM m) => Parser m [Text]
 headerValue = ((pack <$> some keyChar) <|> anyStr') `sepBy1` char '.'
   where
-    keyChar = alphaNumChar <|> char '_' <|> char '-'
+    keyChar = alphaNumChar <|> oneOf ("-_" :: String)
 
 -- | Parses a key-value assignment.
 assignment :: (TomlM m) => Parser m (Text, Node)
@@ -134,7 +132,7 @@
     return (k, v)
   where
     -- TODO: Follow the spec, e.g.: only first char cannot be '['.
-    keyChar = alphaNumChar <|> char '_' <|> char '-'
+    keyChar = alphaNumChar <|> oneOf ("-_" :: String)
 
 
 -- | Parses a value.
@@ -257,14 +255,14 @@
 escSeq :: (TomlM m) => Parser m Char
 escSeq = char '\\' *> escSeqChar
   where
-    escSeqChar =  char '"'  *> return '"'
-              <|> char '\\' *> return '\\'
-              <|> char '/'  *> return '/'
-              <|> char 'b'  *> return '\b'
-              <|> char 't'  *> return '\t'
+    escSeqChar =  char '"'
+              <|> char '\\'
+              <|> char '/'
               <|> char 'n'  *> return '\n'
-              <|> char 'f'  *> return '\f'
+              <|> char 't'  *> return '\t'
               <|> char 'r'  *> return '\r'
+              <|> char 'b'  *> return '\b'
+              <|> char 'f'  *> return '\f'
               <|> char 'u'  *> unicodeHex 4
               <|> char 'U'  *> unicodeHex 8
               <?> "escape character"
@@ -283,9 +281,9 @@
 
 -- | Parser for signs (a plus or a minus).
 signed :: (Num a, TomlM m) => Parser m a -> Parser m a
-signed p = (negate <$> (char '-' *> p))
+signed p = p
+        <|> (negate <$> (char '-' *> p))
         <|> (char '+' *> p)
-        <|> p
 
 
 -- | Parses the (rest of the) line including an EOF, whitespace and comments.