toMessage e (GameUpdate (EquipmentRemoved m item))      | isPlayer m = Just $ "You have removed the " ++ showIdentified (identified (player (level e))) item ++ "."
toMessage e (GameUpdate (EquipmentRemoved m item))      | isPlayer m = Just $ "You have removed the " ++ showIdentified (identified (player (level e))) item ++ "."
toMessage e (GameUpdate (EquipmentRemoved m item))      | isPlayer m = Just $ "You have removed the " ++ showIdentified (identified (player (level e))) item ++ "."