-- | insert a robot into the DB
newRobot :: Robot -> Update Bots Robot
newRobot robot = do
    b@Bots{..} <- get
    put $ b {
                robots = IxSet.insert robot robots
             }
    return robot

 -- | update the robot in the database (indexed by RobotId)
newRobot :: Robot -> Update Bots Robot
newRobot robot = do
    b@Bots{..} <- get
    put $ b {
                robots = IxSet.insert robot robots
             }
    return robot

 -- | update the robot in the database (indexed by RobotId)
newRobot robot = do
    b@Bots{..} <- get
    put $ b {
                robots = IxSet.insert robot robots
             }
    return robot

 -- | update the robot in the database (indexed by RobotId)