diff options
Diffstat (limited to 'server/src/Thermoprint/Server/Printer/Generic.hs')
-rw-r--r-- | server/src/Thermoprint/Server/Printer/Generic.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/server/src/Thermoprint/Server/Printer/Generic.hs b/server/src/Thermoprint/Server/Printer/Generic.hs index df84e06..f431e4f 100644 --- a/server/src/Thermoprint/Server/Printer/Generic.hs +++ b/server/src/Thermoprint/Server/Printer/Generic.hs | |||
@@ -114,10 +114,10 @@ intersperse' :: Monad m => m b -> (a -> m b) -> Seq a -> m () | |||
114 | intersperse' b f = sequence_ . intersperse b f | 114 | intersperse' b f = sequence_ . intersperse b f |
115 | 115 | ||
116 | render :: Printout -> Put | 116 | render :: Printout -> Put |
117 | render = intersperse' (newls' 2) renderPar | 117 | render = intersperse' (newls' 2) renderPar . getParagraphs |
118 | 118 | ||
119 | renderPar :: Paragraph -> Put | 119 | renderPar :: Paragraph -> Put |
120 | renderPar = mapM_ renderChunk | 120 | renderPar = mapM_ renderChunk . getChunks |
121 | where | 121 | where |
122 | renderChunk (Raw bs) = mapM_ pushWord8 $ LBS.unpack bs | 122 | renderChunk (Raw bs) = mapM_ pushWord8 $ LBS.unpack bs |
123 | renderChunk (Cooked block) = renderDoc $ execState (renderBlock block) (initDoc width) | 123 | renderChunk (Cooked block) = renderDoc $ execState (renderBlock block) (initDoc width) |