Commit a48b49d8 authored by Philippe Veber's avatar Philippe Veber
Browse files

debug: added evince

parent 2043db3e
......@@ -29,6 +29,10 @@ let firefox w =
Sys.command (sprintf "firefox %s" (path w))
|> ignore
let evince w =
Sys.command (sprintf "evince %s" (path w))
|> ignore
let workflow_of_template t =
let open Bistro.Shell_dsl in
Workflow.shell [
......
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