diff options
| author | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 11:21:10 +0100 |
|---|---|---|
| committer | Gregor Kleen <gkleen@yggdrasil.li> | 2016-03-01 11:21:10 +0100 |
| commit | 874386a7f8fd113bf746e3f9747a07abe9f45b62 (patch) | |
| tree | ecf1ea71d5bbe7e3788952c86798efcac60bd045 /tprint | |
| parent | 5c9935c88e3f5c301e5e47c5cd171377980a496e (diff) | |
| download | thermoprint-874386a7f8fd113bf746e3f9747a07abe9f45b62.tar thermoprint-874386a7f8fd113bf746e3f9747a07abe9f45b62.tar.gz thermoprint-874386a7f8fd113bf746e3f9747a07abe9f45b62.tar.bz2 thermoprint-874386a7f8fd113bf746e3f9747a07abe9f45b62.tar.xz thermoprint-874386a7f8fd113bf746e3f9747a07abe9f45b62.zip | |
draftPrint
Diffstat (limited to 'tprint')
| -rw-r--r-- | tprint/src/Main.hs | 6 |
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 | |||
| 129 | 129 | ||
| 130 | tprint TPrint{ operation = DraftDelete{..}, ..} Client{..} _ = unless dryRun $ draftDelete draftId | 130 | tprint TPrint{ operation = DraftDelete{..}, ..} Client{..} _ = unless dryRun $ draftDelete draftId |
| 131 | 131 | ||
| 132 | tprint TPrint{ operation = DraftPrint{..}, ..} client@Client{..} out = do | ||
| 133 | let block' | ||
| 134 | | block = blockLoop client out | ||
| 135 | | otherwise = hPutStrLn out . show | ||
| 136 | unless dryRun $ block' =<< draftPrint draftId printer | ||
| 137 | |||
| 132 | 138 | ||
| 133 | tprint _ _ _ = undefined | 139 | tprint _ _ _ = undefined |