setHeight :: Height -> Dimensions -> Dimensions
setHeight h d = d { bottom = top d + h }
setHeight :: Height -> Dimensions -> Dimensions
setHeight h d = d { bottom = top d + h }
setHeight h d = d { bottom = top d + h }