logDecode : String -> Decoder a -> Decoder a
logDecode tag decoder =
    Decode.value
        |> Decode.andThen (logDecodeHelper tag decoder)


logDecodeHelper : String -> Decoder -> Decode.Value -> Decoder a
logDecodeHelper tag decoder json =
    let
        _ =
            Debug.log tag json
    in
    decoder