toMessage e (GameUpdate (GainedLife      m n))          | isPlayer m = Just $ "Praise the sun! You feel youthful."
toMessage e (GameUpdate (GainedLife      m n))          | isPlayer m = Just $ "Praise the sun! You feel youthful."
toMessage e (GameUpdate (GainedLife      m n))          | isPlayer m = Just $ "Praise the sun! You feel youthful."