From 8d811536eb1b45e2be3eb6be1e2f1a3feef04336 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 1 Mar 2016 10:41:08 +0100
Subject: Option to block and wait for job to be printed

---
 tprint/src/Options/Utils.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'tprint/src/Options')

diff --git a/tprint/src/Options/Utils.hs b/tprint/src/Options/Utils.hs
index b3561e9..237aa56 100644
--- a/tprint/src/Options/Utils.hs
+++ b/tprint/src/Options/Utils.hs
@@ -5,6 +5,7 @@ module Options.Utils
        , pPrinter
        , aDraft
        , pTitle
+       , pBlock
        ) where
 
 import Options.Applicative
@@ -60,3 +61,6 @@ aDraft = argument (DraftId <$> auto) (metavar "DRAFT")
 
 pTitle :: Parser DraftTitle
 pTitle = option (T.pack <$> auto) $ metavar "TITLE" <> long "title" <> short 't'
+
+pBlock :: Parser Bool
+pBlock = switch $ long "block" <> short 'b' <> help "Do not return until job has finished printing or failed. Report errors during printing"
-- 
cgit v1.2.3