diff options
-rw-r--r-- | tprint/src/Main.hs | 2 |
1 files changed, 2 insertions, 0 deletions
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 | |||
127 | tprint TPrint{ operation = DraftReplace{..}, ..} Client{..} _ = withPrintout input $ \p -> do | 127 | tprint TPrint{ operation = DraftReplace{..}, ..} Client{..} _ = withPrintout input $ \p -> do |
128 | unless dryRun $ draftReplace draftId draftTitle p | 128 | unless dryRun $ draftReplace draftId draftTitle p |
129 | 129 | ||
130 | tprint TPrint{ operation = DraftDelete{..}, ..} Client{..} _ = unless dryRun $ draftDelete draftId | ||
131 | |||
130 | 132 | ||
131 | tprint _ _ _ = undefined | 133 | tprint _ _ _ = undefined |