From 874386a7f8fd113bf746e3f9747a07abe9f45b62 Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 1 Mar 2016 11:21:10 +0100
Subject: draftPrint

---
 tprint/src/Main.hs | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'tprint/src')

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
-- 
cgit v1.2.3