Use elaborateFailure in getFieldOptional'

LucianU · LucianU · commit f0e206f47cc4 · 2019-03-01T10:53:25.000+02:00
diff --git 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 .:?
 
