setFlag :: (Monad m) => Flag -> CyoaT m ()
setFlag flag =
  modifyPlayerState $ \ps -> ps { player_flags = Set.insert flag (player_flags ps) }
setFlag :: (Monad m) => Flag -> CyoaT m ()
setFlag flag =
  modifyPlayerState $ \ps -> ps { player_flags = Set.insert flag (player_flags ps) }
setFlag flag =
  modifyPlayerState $ \ps -> ps { player_flags = Set.insert flag (player_flags ps) }