abortDriver 
  :: ()
    => (In Bool r, MonadReader (DS r) m,  MS m) 
--  => IconsU m Taker a
--  => IconsU m Giver a
  => a
  ->  m (ES a)

abortDriver x = do 
          rec   ws <- domMorph abortWidget s
                s <- holdDyn Iconified (pick LeftG ws)

          return $ x <$ pick RightG ws

----------------------------------------------------------------
---------------- Appointment ----------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
abortDriver 
  :: ()
    => (In Bool r, MonadReader (DS r) m,  MS m) 
--  => IconsU m Taker a
--  => IconsU m Giver a
  => a
  ->  m (ES a)
abortDriver x = do 
          rec   ws <- domMorph abortWidget s
                s <- holdDyn Iconified (pick LeftG ws)

          return $ x <$ pick RightG ws

----------------------------------------------------------------
---------------- Appointment ----------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
abortDriver x = do 
          rec   ws <- domMorph abortWidget s
                s <- holdDyn Iconified (pick LeftG ws)

          return $ x <$ pick RightG ws

----------------------------------------------------------------
---------------- Appointment ----------------------------------
----------------------------------------------------------------
----------------------------------------------------------------
----------------------------------------------------------------