firstL :: (Window -> Window) -> Layout -> Layout
firstL f (MinimalLayout t u p w)    = MinimalLayout t u (f p) w
firstL :: (Window -> Window) -> Layout -> Layout
firstL f (MinimalLayout t u p w)    = MinimalLayout t u (f p) w
firstL f (MinimalLayout t u p w)    = MinimalLayout t u (f p) w