From 5c9935c88e3f5c301e5e47c5cd171377980a496e Mon Sep 17 00:00:00 2001
From: Gregor Kleen <gkleen@yggdrasil.li>
Date: Tue, 1 Mar 2016 11:18:04 +0100
Subject: draftDelete

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

(limited to 'tprint/src/Main.hs')

diff --git a/tprint/src/Main.hs b/tprint/src/Main.hs
index fa5cd26..4eb774c 100644
--- a/tprint/src/Main.hs
+++ b/tprint/src/Main.hs
@@ -127,5 +127,7 @@ tprint TPrint{ operation = DraftCreate{..}, ..} Client{..} out = withPrintout in
 tprint TPrint{ operation = DraftReplace{..}, ..} Client{..} _ = withPrintout input $ \p -> do
   unless dryRun $ draftReplace draftId draftTitle p
 
+tprint TPrint{ operation = DraftDelete{..}, ..} Client{..} _ = unless dryRun $ draftDelete draftId
+
 
 tprint _ _ _ = undefined
-- 
cgit v1.2.3