Formatting

OCamlPro · Jul 3, 2023 · 0946a2d · 0946a2d
1 parent 8b49de1
commit 0946a2d
Show file tree

Hide file tree

Showing 3 changed files with 126 additions and 124 deletions.
diff --git a/src/vscode-debugadapter/messages.ml b/src/vscode-debugadapter/messages.ml
@@ -16,7 +16,7 @@ module Message = struct
 
   include
     [%js:
-    val seq: t -> int [@@js.get]
+    val seq:   t -> int [@@js.get]
     val type_: t -> string [@@js.get "type"]]
 end
 
@@ -27,8 +27,8 @@ module Response = struct
   include
     [%js:
     val request_seq: t -> int [@@js.get]
-    val success: t -> bool [@@js.get]
-    val command: t -> string [@@js.get]
+    val success:     t -> bool [@@js.get]
+    val command:     t -> string [@@js.get]
     val create:
          request: DebugProtocol.Request.t
       -> ?message: string
@@ -43,6 +43,6 @@ module Event = struct
 
   include
     [%js:
-    val event: t -> string [@@js.get]
+    val event:  t -> string [@@js.get]
     val create: event: string -> ?body: 'a -> unit -> t [@@js.new "debugadapter.Event"]]
 end
diff --git a/src/vscode-debugadapter/protocol.ml b/src/vscode-debugadapter/protocol.ml
@@ -59,10 +59,10 @@ module Emitter = struct
 
     include
       [%js:
-      val event: t -> Event.t [@@js.get]
-      val fire: t -> event:T.t -> t [@@js.call]
+      val event:       t -> Event.t [@@js.get]
+      val fire:        t -> event:T.t -> t [@@js.call]
       val hasListener: t -> bool [@@js.call]
-      val dispose: t -> unit [@@js.call]]
+      val dispose:     t -> unit [@@js.call]]
   end
 end
 
@@ -72,7 +72,7 @@ module VSCodeDebugAdapter = struct
   include
     [%js:
     val onDidSendMessage: t -> DebugProtocalMessage.t Event0.t [@@js.get]
-    val handleMessage: t -> message: DebugProtocol.ProtocolMessage.t -> unit [@@js.call]]
+    val handleMessage:    t -> message: DebugProtocol.ProtocolMessage.t -> unit [@@js.call]]
 end
 
 module ProtocolServer = struct
@@ -81,17 +81,17 @@ module ProtocolServer = struct
 
   include
     [%js:
-    val dispose: t -> Js.Any.t [@@js.call]
+    val dispose:          t -> Js.Any.t [@@js.call]
     val onDidSendMessage: t -> DebugProtocalMessage.t Event0.t [@@js.get]
-    val handleMessage: t -> msg: DebugProtocol.ProtocolMessage.t -> unit [@@js.call]
+    val handleMessage:    t -> msg: DebugProtocol.ProtocolMessage.t -> unit [@@js.call]
     val start:
          t
       -> inStream: Node.Stream.Readable.t
       -> outStream: Node.Stream.Writable.t
       -> unit [@@js.call]
-    val stop: t -> unit [@@js.call]
-    val sendEvent: t -> event: DebugProtocol.Event.t -> unit [@@js.call]
-    val sendResponse: t -> response: DebugProtocol.Response.t -> unit [@@js.call]
+    val stop:             t -> unit [@@js.call]
+    val sendEvent:        t -> event: DebugProtocol.Event.t -> unit [@@js.call]
+    val sendResponse:     t -> response: DebugProtocol.Response.t -> unit [@@js.call]
     val sendRequest:
          t
       -> command: string