diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 11:18:04 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 11:18:04 +0100 |
| commit | 5c9935c88e3f5c301e5e47c5cd171377980a496e (patch) | |
| tree | f938be009208b01bc23ab2433455719fb7290bde /tprint | |
| parent | fdebcd98c7246c1abb84269163f47115fb84d5a5 (diff) | |
| download | thermoprint-5c9935c88e3f5c301e5e47c5cd171377980a496e.tar thermoprint-5c9935c88e3f5c301e5e47c5cd171377980a496e.tar.gz thermoprint-5c9935c88e3f5c301e5e47c5cd171377980a496e.tar.bz2 thermoprint-5c9935c88e3f5c301e5e47c5cd171377980a496e.tar.xz thermoprint-5c9935c88e3f5c301e5e47c5cd171377980a496e.zip | |
draftDelete
Diffstat (limited to 'tprint')
| -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 |