robotById :: RobotId -> Query Bots (Maybe Robot)
robotById rid =
     do Bots{..} <- ask
        return $ getOne $ robots @= rid


robotById :: RobotId -> Query Bots (Maybe Robot)
robotById rid =
     do Bots{..} <- ask
        return $ getOne $ robots @= rid


robotById rid =
     do Bots{..} <- ask
        return $ getOne $ robots @= rid

