diff options
Diffstat (limited to 'src/options.ml')
-rw-r--r-- | src/options.ml | 15 |
1 files changed, 7 insertions, 8 deletions
diff --git a/src/options.ml b/src/options.ml index a57c28b..341c0bb 100644 --- a/src/options.ml +++ b/src/options.ml | |||
@@ -1,8 +1,7 @@ | |||
1 | type t = { height: int; ascii: bool; marker: Marker.t} | 1 | type t = { height : int; ascii : bool; marker : Marker.t } |
2 | let default = | 2 | |
3 | { height = 14 | 3 | let default = { height = 14; ascii = false; marker = Marker.Circle } |
4 | ; ascii = false | 4 | |
5 | ; marker = Marker.Point | 5 | let with_height v c = { c with height = v } |
6 | } | 6 | |
7 | let with_height v c = { c with height = v; } | 7 | let with_marker v c = { c with marker = v } |
8 | let with_marker v c = { c with marker = v; } | ||