toMessage e (GameUpdate (BandageApplied   m))           | isPlayer m = Just $ "You apply the bandage."
toMessage e (GameUpdate (BandageApplied   m))           | isPlayer m = Just $ "You apply the bandage."
toMessage e (GameUpdate (BandageApplied   m))           | isPlayer m = Just $ "You apply the bandage."