git.iko.soy/vty
on master help sign in
Use the proper index for the height
a5d0a6bBen Boeckel
src/Graphics/Vty/Image.hs+1−1
compare with master
unifiedsplit
@@ -218,7 +218,7 @@ image_height VertJoin { output_height = r } = r
218image_height BGFill { output_height = r } = r
218image_height BGFill { output_height = r } = r
219image_height EmptyImage = 0
219image_height EmptyImage = 0
220image_height ( Translation _v i ) = image_height i
220image_height ( Translation _v i ) = image_height i
221−image_height ( ImageCrop _v i ) = min (image_height i) (toEnum $ fst _v)
221+image_height ( ImageCrop _v i ) = min (image_height i) (toEnum $ snd _v)
222
222
223-- | Combines two images side by side.
223-- | Combines two images side by side.
224--
224--