setWidth :: Width -> Dimensions -> Dimensions
setWidth w d = d { right = left d + w }
setWidth :: Width -> Dimensions -> Dimensions
setWidth w d = d { right = left d + w }
setWidth w d = d { right = left d + w }