secondL :: (Window -> Window) -> Layout -> Layout
secondL f (VSplitLayout t u d p s) = VSplitLayout t u d p (f s)
secondL :: (Window -> Window) -> Layout -> Layout
secondL f (VSplitLayout t u d p s) = VSplitLayout t u d p (f s)
secondL f (VSplitLayout t u d p s) = VSplitLayout t u d p (f s)