Commit 2dc1c773 authored by LANORE Vincent's avatar LANORE Vincent
Browse files

Added seaview debug command

parent 54cdad06
...@@ -32,6 +32,10 @@ let firefox w = ...@@ -32,6 +32,10 @@ let firefox w =
Sys.command (sprintf "firefox %s" (path w)) Sys.command (sprintf "firefox %s" (path w))
|> ignore |> ignore
let seaview w =
Sys.command (sprintf "seaview %s" (path w))
|> ignore
let evince w = let evince w =
Sys.command (sprintf "evince %s" (path w)) Sys.command (sprintf "evince %s" (path w))
|> ignore |> ignore
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment