package openrouter_api

  1. Overview
  2. Docs
package openrouter_api
Legend:
Page
Library
Module
Module type
Parameter
Class
Class type
Source

Source file http.ml

1
2
3
4
5
6
7
8
9
10
11
12
open! Core
open! Async

let is_success_status (response : Cohttp.Response.t) =
  let code = Cohttp.Code.code_of_status (Cohttp.Response.status response) in
  Cohttp.Code.is_success code
;;

let make_headers ~api_key =
  Cohttp.Header.of_list
    [ "Authorization", "Bearer " ^ api_key; "Content-Type", "application/json" ]
;;