-- | Adds an "overlay" to the buffer
addOverlayB :: Overlay -> BufferM ()
addOverlayB ov = do
  pendingUpdatesA %= (++ [overlayUpdate ov])
  modifyBuffer $ addOverlayBI ov
addOverlayB :: Overlay -> BufferM ()
addOverlayB ov = do
  pendingUpdatesA %= (++ [overlayUpdate ov])
  modifyBuffer $ addOverlayBI ov
addOverlayB ov = do
  pendingUpdatesA %= (++ [overlayUpdate ov])
  modifyBuffer $ addOverlayBI ov