package mmdb

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

Source file types.ml

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
module Ip = struct
  type t = string [@@deriving show]

  let of_string = Base.Fn.id

  let to_string = Base.Fn.id
end

module Language = struct
  type t = string [@@deriving show]

  let of_string = Base.Fn.id

  let to_string = Base.Fn.id
end

module Path = struct
  type t = string [@@deriving show]

  let of_string = Base.Fn.id

  let to_string = Base.Fn.id
end

module Version_number = struct
  type t = {
    major : int;
    minor : int
  }
  [@@deriving show]

  let of_major_and_minor (major, minor) = {major; minor}

  let to_major_and_minor {major; minor} = major, minor
end