toMessage e (GameUpdate (Healed          m n))          | isPlayer m = Just $ "You were healed of " ++ show n ++ " points of damage."
toMessage e (GameUpdate (Healed          m n))          | isPlayer m = Just $ "You were healed of " ++ show n ++ " points of damage."
toMessage e (GameUpdate (Healed          m n))          | isPlayer m = Just $ "You were healed of " ++ show n ++ " points of damage."