addDice :: (Monad m) => Die -> Int -> CyoaT m ()
addDice d value = modify $ \gs -> gs{ page_state = Map.insert d value (page_state gs) }
addDice :: (Monad m) => Die -> Int -> CyoaT m ()
addDice d value = modify $ \gs -> gs{ page_state = Map.insert d value (page_state gs) }
addDice d value = modify $ \gs -> gs{ page_state = Map.insert d value (page_state gs) }