Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
tree: 5aa5e282ab
Fetching contributors…

Cannot retrieve contributors at this time

file 47 lines (29 sloc) 1.185 kb
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
(* Ohm is © 2012 Victor Nicollet *)

type role = [ `Bot | `Web | `Put | `Reset ]

val role : unit -> role

val get_contents : string -> string option
val get_binary_contents : string -> string option
val get_view_contents : string -> string option
val get_resource_contents : string -> string option

val urlencode : string -> string

val log : ('a,unit,string,unit) format4 -> 'a
val logreq : ('a,unit,string,unit) format4 -> 'a
val logjson : Json_type.t -> string

val uniq : unit -> string

val dec_of_hex_char : char -> int

val base62 : int -> int -> string
val base62_of_int : int -> string
val base62_to_base34 : string -> string

val last : 'a list -> 'a option
val first : 'a list -> 'a option

val string_of_time : float -> string

val utf8 : string -> string option

val sha1_hmac : (string * string) -> string -> string

val setdiff : ('a -> 'b -> int) -> 'a list -> 'b list -> 'a list
val setand : ('a -> 'b -> int) -> 'a list -> 'b list -> 'a list

val memoize : ('a -> 'b) -> 'a -> 'b

val fold_accents : string -> string
val fold_all : string -> string

val number : 'a list -> (int * 'a) list

val clip : int -> string -> string

val next_string : string -> string
Something went wrong with that request. Please try again.