toMessage e (GameUpdate (Died m))
    | isPlayer m = Just $ "You died! Press space to quit or r to restart a new game."
    | otherwise  = Just $ "You killed the " ++ mobName m
toMessage e (GameUpdate (Died m))
    | isPlayer m = Just $ "You died! Press space to quit or r to restart a new game."
    | otherwise  = Just $ "You killed the " ++ mobName m
toMessage e (GameUpdate (Died m))
    | isPlayer m = Just $ "You died! Press space to quit or r to restart a new game."
    | otherwise  = Just $ "You killed the " ++ mobName m