@@ -259,17 +259,19 @@ addMaybeClipped (HorizText a textStr ow _cw) = do
259259 in addUnclippedText a textStr'
260260 else addUnclippedText a textStr
261261addMaybeClipped (VertJoin topImage bottomImage _ow oh) = do
262− addMaybeClippedJoin "vert_join" skipRows remainingRows rowOffset
263− (imageHeight topImage)
264− topImage
265− bottomImage
266− oh
262+ when (imageHeight topImage + imageHeight bottomImage > 0) $
263+ addMaybeClippedJoin "vert_join" skipRows remainingRows rowOffset
264+ (imageHeight topImage)
265+ topImage
266+ bottomImage
267+ oh
267268addMaybeClipped (HorizJoin leftImage rightImage ow _oh) = do
268− addMaybeClippedJoin "horiz_join" skipColumns remainingColumns columnOffset
269− (imageWidth leftImage)
270− leftImage
271− rightImage
272− ow
269+ when (imageWidth leftImage + imageWidth rightImage > 0) $
270+ addMaybeClippedJoin "horiz_join" skipColumns remainingColumns columnOffset
271+ (imageWidth leftImage)
272+ leftImage
273+ rightImage
274+ ow
273275addMaybeClipped BGFill {outputWidth, outputHeight} = do
274276 s <- get
275277 let outputWidth' = min (outputWidth - s^.skipColumns) (s^.remainingColumns)