1 files changed, 6 insertions, 0 deletions

diff --git a/tprint/src/Main.hs b/tprint/src/Main.hs
index 4eb774c..8a534b8 100644
--- a/tprint/src/Main.hs
+++ b/tprint/src/Main.hs
@@ -129,5 +129,11 @@ tprint TPrint{ operation = DraftReplace{..}, ..} Client{..} _ = withPrintout inp
 
 tprint TPrint{ operation = DraftDelete{..}, ..} Client{..} _ = unless dryRun $ draftDelete draftId
 
+tprint TPrint{ operation = DraftPrint{..}, ..} client@Client{..} out = do
+  let block'
+        | block = blockLoop client out
+        | otherwise = hPutStrLn out . show
+  unless dryRun $ block' =<< draftPrint draftId printer
+
 
 tprint _ _ _ = undefined