From b72960db52c182710db4aa9be783439a74beadca Mon Sep 17 00:00:00 2001 From: Gregor Kleen Date: Sat, 9 Jan 2016 23:25:46 +0000 Subject: Fixed fencepost mistake --- spec/src/Thermoprint/Printout.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'spec/src/Thermoprint') 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 $ TL.split isSpace t toBlock [] = mempty toBlock xs@(x:_) - | TL.null x = VSpace $ genericLength xs + | TL.null x = VSpace $ genericLength xs - 1 | otherwise = mconcat . map (Line . mconcat . splitWords) $ xs toLine [] = mempty toLine xs@(x:_) - | TL.null x = HSpace $ genericLength xs + | TL.null x = HSpace $ genericLength xs - 1 | otherwise = mconcat . map Word $ xs list :: b -> (a -> [a] -> b) -> [a] -> b list c _ [] = c -- cgit v1.2.3