From 86402b208d4e925a15146a2541c937590320e9e0 Mon Sep 17 00:00:00 2001
From: Akshay <nerdy@peppe.rs>
Date: Sun, 8 Aug 2021 18:29:00 +0530
Subject: format

---
 src/marker.ml | 45 ++++++++++++++++++++++-----------------------
 1 file changed, 22 insertions(+), 23 deletions(-)

(limited to 'src/marker.ml')

diff --git a/src/marker.ml b/src/marker.ml
index 0c59804..7d37e2a 100644
--- a/src/marker.ml
+++ b/src/marker.ml
@@ -1,27 +1,26 @@
-type t = Point
-       | Pixel
-       | Circle
-       | TriangleDown
-       | TriangleUp
-       | TriangleLeft
-       | TriangleRight
-       | Custom of string
+type t =
+  | Point
+  | Pixel
+  | Circle
+  | TriangleDown
+  | TriangleUp
+  | TriangleLeft
+  | TriangleRight
+  | Custom of string
 
 exception Invalid_marker_length
-let of_string s = 
-    if String.length s <> 1
-    then raise Invalid_marker_length
-    else Custom(s)
 
-let pp channel n =
-    (match n with
-        | Point         -> "."
-        | Pixel         -> ","
-        | Circle        -> "o"
-        | TriangleDown  -> "v"
-        | TriangleUp    -> "^"
-        | TriangleLeft  -> ">"
-        | TriangleRight -> "<"
-        | Custom(s)     -> s) 
-    |> Printf.fprintf channel "%s"
+let of_string s =
+  if String.length s <> 1 then raise Invalid_marker_length else Custom s
 
+let pp formatter n =
+  (match n with
+  | Point -> "."
+  | Pixel -> ","
+  | Circle -> "o"
+  | TriangleDown -> "v"
+  | TriangleUp -> "^"
+  | TriangleLeft -> ">"
+  | TriangleRight -> "<"
+  | Custom s -> s)
+  |> Format.fprintf formatter "%s"
-- 
cgit v1.2.3