diff options
| -rw-r--r-- | spec/src/Thermoprint/Printout.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/spec/src/Thermoprint/Printout.hs b/spec/src/Thermoprint/Printout.hs index d13d02e..442c2a3 100644 --- a/spec/src/Thermoprint/Printout.hs +++ b/spec/src/Thermoprint/Printout.hs | |||
| @@ -118,11 +118,11 @@ text t = case splitLines t of | |||
| 118 | $ TL.split isSpace t | 118 | $ TL.split isSpace t |
| 119 | toBlock [] = mempty | 119 | toBlock [] = mempty |
| 120 | toBlock xs@(x:_) | 120 | toBlock xs@(x:_) |
| 121 | | TL.null x = VSpace $ genericLength xs | 121 | | TL.null x = VSpace $ genericLength xs - 1 |
| 122 | | otherwise = mconcat . map (Line . mconcat . splitWords) $ xs | 122 | | otherwise = mconcat . map (Line . mconcat . splitWords) $ xs |
| 123 | toLine [] = mempty | 123 | toLine [] = mempty |
| 124 | toLine xs@(x:_) | 124 | toLine xs@(x:_) |
| 125 | | TL.null x = HSpace $ genericLength xs | 125 | | TL.null x = HSpace $ genericLength xs - 1 |
| 126 | | otherwise = mconcat . map Word $ xs | 126 | | otherwise = mconcat . map Word $ xs |
| 127 | list :: b -> (a -> [a] -> b) -> [a] -> b | 127 | list :: b -> (a -> [a] -> b) -> [a] -> b |
| 128 | list c _ [] = c | 128 | list c _ [] = c |