toMessage e (GameUpdate (GainedMobFlag m Sleeping))     | isPlayer m = Just $ "You fell asleep."
toMessage e (GameUpdate (GainedMobFlag m Sleeping))     | isPlayer m = Just $ "You fell asleep."
toMessage e (GameUpdate (GainedMobFlag m Sleeping))     | isPlayer m = Just $ "You fell asleep."