json_decoder_debugger.elm

loggingDecoder : Decoder a -> Decoder a
loggingDecoder decoderToDebug =
    D.value
        |> D.andThen
            (\value ->
                case D.decodeValue decoderToDebug value of
                    Ok decoded ->
                        D.succeed decoded

                    Err error ->
                        D.fail <| Debug.log "decode error" <| Debug.toString error
            )