From f0e206f47cc429b8e7cf4d08f66f9d4bd9a3a015 Mon Sep 17 00:00:00 2001
From: Lucian Ursu <lucian.ursu@gmail.com>
Date: Fri, 1 Mar 2019 10:53:25 +0200
Subject: [PATCH] Use `elaborateFailure` in `getFieldOptional'`

---
 src/Data/Argonaut/Decode/Combinators.purs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Data/Argonaut/Decode/Combinators.purs b/src/Data/Argonaut/Decode/Combinators.purs
index 932a944..9ce6fc6 100644
--- a/src/Data/Argonaut/Decode/Combinators.purs
+++ b/src/Data/Argonaut/Decode/Combinators.purs
@@ -65,7 +65,7 @@ getFieldOptional' o s =
     decode json =
       if isNull json
         then pure Nothing
-        else Just <$> decodeJson json
+        else Just <$> (elaborateFailure s <<< decodeJson) json
 
 infix 7 getFieldOptional' as .:?