Merge pull request #88 from BlockScope/fix/yaml-decode-87

Yaml.decode is deprecated, use decodeEither' instead.
nmattia · Oct 12, 2018 · 5d52a2d · 5d52a2d
2 parents 6dc8caa + e42469b
commit 5d52a2d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/snack-lib/YamlToJson.hs b/snack-lib/YamlToJson.hs
@@ -13,5 +13,5 @@ main :: IO ()
 main = do
     [file] <- getArgs
     yaml <- BS8.readFile file
-    let Just value = Yaml.decode yaml :: Maybe Aeson.Value
+    let Right value = Yaml.decodeEither' yaml :: Either Yaml.ParseException Aeson.Value
     BL8.putStrLn $ Aeson.encode value