Added seaview debug command

2dc1c773 · LANORE Vincent · 54cdad06 · 2dc1c773
Commit 2dc1c773 authored Jul 15, 2019 by LANORE Vincent
Show whitespace changes
Inline Side-by-side

Showing with 4 additions and 0 deletions

lib/debug.ml lib/debug.ml +4 -0

No files found.
--- a/lib/debug.ml
+++ b/lib/debug.ml
@@ -32,6 +32,10 @@ let firefox w =
  Sys.command (sprintf "firefox %s" (path w))
  |> ignore

+let seaview w =
+  Sys.command (sprintf "seaview %s" (path w))
+  |> ignore
+
 let evince w =
  Sys.command (sprintf "evince %s" (path w))
  |> ignore