Debug Json decoders helpers

DebugJson.elm

log : String -> Json.Decode.Decoder a -> Json.Decode.Decoder a
log message =
    Json.Decode.map (Debug.log message)


debug : String -> Json.Decode.Decoder a -> Json.Decode.Decoder a
debug message decoder =
    Json.Decode.value
        |> Json.Decode.andThen (debugHelper message decoder)


debugHelper : String -> Json.Decode.Decoder a -> Json.Decode.Value -> Json.Decode.Decoder a
debugHelper message decoder value =
    let
        _ =
            Debug.log message (Json.Decode.decodeValue decoder value)
    in
    decoder