IOtoFX.kt

override fun call(url: String, parameters: Map<String, String>): IO<String> =
        fx {
            effect { calcDelay() }
            val call: HttpClientCall = effect {
                httpClient.call("$apiURL/$url") {
                    method = HttpMethod.Get
                    parameters.forEach { k, v -> parameter(k, v) }
                }
            }
            effect {
                updateDelayFromHeaderData(
                    call.response.headers["X-Rate-Limit-Limit"],
                    call.response.headers["X-Rate-Limit-Interval"]
                )
            }
            effect { updateLastQueryTime() }
            effect {
                when (call.response.status.value) {
                    200 -> call.response.readText()
                    404 -> IO.raiseError(NonExistentReference)
                    else -> IO.raiseError(UnManagedReturnCode(call.response.status.value))
                }
            }
        }