[#206] Test on toml-v0.4.0 example

kowainik · Jul 10, 2019 · 9c3475b · 9c3475b
1 parent cfea143
commit 9c3475b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Toml/Parser/TOML.hs b/src/Toml/Parser/TOML.hs
@@ -101,7 +101,7 @@ tomlP = sc *> localTomlP Nothing <* eof
 
 -- | Parser for a toml under a certain key
 localTomlP :: Maybe Key -> Parser TOML
-localTomlP key = mconcat <$> many (subArray <|> subTable <|> hasKeyP key)
+localTomlP key = mconcat <$> many (subArray <|> subTable <|> (try $ hasKeyP key))
   where
     subTable :: Parser TOML
     subTable = do