thirdL :: (Window -> Window) -> Layout -> Layout
thirdL f (BasicLayout t u d p) = BasicLayout t u (f d) p
thirdL :: (Window -> Window) -> Layout -> Layout
thirdL f (BasicLayout t u d p) = BasicLayout t u (f d) p
thirdL f (BasicLayout t u d p) = BasicLayout t u (f d) p