Merge pull request #29 from rootzlevel/crop-bug

Don't let remain_rows go negative
This commit is contained in:
Corey O'Connor 2012-08-17 21:39:34 -07:00
commit c57442d6d5

View File

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