@@ -186,7 +186,7 @@ row_ops_for_image mrow_ops -- the image to output the ops t
186 (skip_row', skip_col)
186 (skip_row', skip_col)
187 (y + top_height)
187 (y + top_height)
188 remaining_columns
188 remaining_columns
189− (remain_rows - top_height)
189+ (max 0 $ remain_rows - top_height)
190 return (skip_row'', min skip_col' skip_col'')
190 return (skip_row'', min skip_col' skip_col'')
191 HorizJoin l r _ _ -> do
191 HorizJoin l r _ _ -> do
192 (skip_row',skip_col') <- row_ops_for_image mrow_ops l bg region skip_dim y remaining_columns remain_rows
192 (skip_row',skip_col') <- row_ops_for_image mrow_ops l bg region skip_dim y remaining_columns remain_rows