loseLife :: Monad m => PlayerID -> Int -> StateT GameState m ()
loseLife pID amount = playerWithID pID.hp -= amount
loseLife :: Monad m => PlayerID -> Int -> StateT GameState m ()
loseLife pID amount = playerWithID pID.hp -= amount
loseLife pID amount = playerWithID pID.hp -= amount