playerControllingCard :: Monad m => CardID -> StateT GameState m PlayerID
playerControllingCard cID = do
  state <- get
  return (state^._card cID.controllerID)
playerControllingCard :: Monad m => CardID -> StateT GameState m PlayerID
playerControllingCard cID = do
  state <- get
  return (state^._card cID.controllerID)
playerControllingCard cID = do
  state <- get
  return (state^._card cID.controllerID)