updateRobot :: Robot -> Update Bots ()
updateRobot updatedRobot =
    do b@Bots{..} <- get
       put $ b { robots = IxSet.updateIx (robotId updatedRobot) updatedRobot robots
               }

-- | get a robot record by its ID (sha1 of its uri)
updateRobot :: Robot -> Update Bots ()
updateRobot updatedRobot =
    do b@Bots{..} <- get
       put $ b { robots = IxSet.updateIx (robotId updatedRobot) updatedRobot robots
               }

-- | get a robot record by its ID (sha1 of its uri)
updateRobot updatedRobot =
    do b@Bots{..} <- get
       put $ b { robots = IxSet.updateIx (robotId updatedRobot) updatedRobot robots
               }

-- | get a robot record by its ID (sha1 of its uri)