placeScreen :: MonadWriter [Placement] m => LayoutPrim -> m ()
placeScreen ly
  | Just screenAlign <- layoutPrimParentAlignment ly =
      placePrim screenAlign (Bounds 0 0 0 0) ly
  | otherwise = pure ()
placeScreen :: MonadWriter [Placement] m => LayoutPrim -> m ()
placeScreen ly
  | Just screenAlign <- layoutPrimParentAlignment ly =
      placePrim screenAlign (Bounds 0 0 0 0) ly
  | otherwise = pure ()
placeScreen ly
  | Just screenAlign <- layoutPrimParentAlignment ly =
      placePrim screenAlign (Bounds 0 0 0 0) ly
  | otherwise = pure ()