-addInstruction g@(Gift {}) =
- -- do (botstates, rules, history) <- get
- -- let (bot, otherBots) = getBot receivingBot botstates
- -- let rBot = BotState {botId = (botId bot), items = (value:(items bot))}
- -- put (rBot:otherBots, rules, history)
- do addPlace (Place {placeType = Bot, placeId = (giftId g), items = []})
-
--- propogateUpdates :: State Factory ()
--- propogateUpdates = State $ \factory -> ((), factory')
--- where