1 files changed, 4 insertions, 1 deletions

diff --git a/tprint/src/Options.hs b/tprint/src/Options.hs
index 30350cb..ca5ee2b 100644
--- a/tprint/src/Options.hs
+++ b/tprint/src/Options.hs
@@ -44,6 +44,7 @@ data Operation
     }
   | JobCreate
     { printer :: Maybe PrinterId
+    , block :: Bool
     , input :: Input
     }
   | Job { jobId :: JobId }
@@ -63,6 +64,7 @@ data Operation
   | DraftDelete { draftId :: DraftId }
   | DraftPrint
     { draftId :: DraftId
+    , block :: Bool
     , printer :: Maybe PrinterId
     }
   deriving (Show, Generic, PrettyVal)
@@ -96,6 +98,7 @@ cmdJobs = info cmdJobs' $ progDesc "List printjobs"
 cmdJobCreate = info cmdJobCreate' $ progDesc "Queue a new job"
   where cmdJobCreate' = JobCreate
           <$> optional (pPrinter $ help "Direct for the job to printed on #PRINTER specifically")
+          <*> pBlock
           <*> pInput
 
 cmdJob = info cmdJob' $ progDesc "Retrieve a jobs contents"
@@ -123,7 +126,7 @@ cmdDraftDelete = info cmdDraftDelete' $ progDesc "Delete a draft"
   where cmdDraftDelete' = DraftDelete <$> aDraft
 
 cmdDraftPrint = info cmdDraftPrint' $ progDesc "Queue a copy of a drafts contents to be printed"
-  where cmdDraftPrint' = DraftPrint <$> aDraft <*> optional (pPrinter $ help "Direct for the drafts contents to be printed on #PRINTER specifically")
+  where cmdDraftPrint' = DraftPrint <$> aDraft <*> pBlock <*> optional (pPrinter $ help "Direct for the drafts contents to be printed on #PRINTER specifically")
 
 pOperation :: Parser Operation
 pOperation = hsubparser $ mconcat [ command "printers" cmdPrinters