Option to block and wait for job to be printed

1 files changed, 4 insertions, 0 deletions

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"