Fail parsing if the input isn't completely consumed

Without this, parsing stops at the start of any invalid input and
returns a successful result

Closes #29

src/Data/Ini.hs

@@ -245,7 +245,8 @@ iniParser :: Parser Ini
 iniParser =
   (\kv secs -> Ini {iniSections = M.fromList secs, iniGlobals = kv}) <$>
   many keyValueParser <*>
-  many sectionParser
+  many sectionParser <*
+  (endOfInput <|> (fail . T.unpack =<< takeWhile (not . isControl)))
 
 -- | A section. Format: @[foo]@. Conventionally, @[FOO]@.
 sectionParser :: Parser (Text,[(Text, Text)])

test/Main.hs

@@ -64,4 +64,11 @@ main =
                                ]
                          , iniGlobals =
                              [("port", "6667"), ("hostname", "localhost")]
-                         })))))
+                         })))
+              it
+                "File with invalid keys"
+                (shouldBe
+                   (parseIni
+                      "Name=Foo\n\
+                      \Name[en_GB]=Fubar")
+                   (Left "Failed reading: Name[en_GB]=Fubar"))))