@@ -350,7 +350,7 @@ crop v (ImagePad _size i) = ImagePad (min (fst v) (fst _size), min (snd v) (snd
350350crop v i = ImagePad v i
351351
352352pad :: (Word, Word) -> Image -> Image
353−pad v@(w,h) i
354− | w == 0 = EmptyImage
355− | h == 0 = EmptyImage
356− | otherwise = ImagePad v i
353+pad (0,_) _ = EmptyImage
354+pad (_,0) _ = EmptyImage
355+pad v (ImagePad _size i) = ImagePad (max (fst v) (fst _size), max (snd v) (snd _size)) i
356+pad v i = ImagePad v i