package accessor_core

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

Source file accessor_percent.ml

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
open! Core
open! Import

let mult =
  [%accessor Accessor.isomorphism ~get:Percent.to_mult ~construct:Percent.of_mult]
;;

let percentage =
  [%accessor
    Accessor.isomorphism ~get:Percent.to_percentage ~construct:Percent.of_percentage]
;;

let bp = [%accessor Accessor.isomorphism ~get:Percent.to_bp ~construct:Percent.of_bp]

let scaled s =
  [%accessor
    Accessor.isomorphism
      ~get:(fun p -> Percent.scale p s)
      ~construct:(fun p -> Percent.scale p (1. /. s))]
;;