refactored Servant.Docs.ToSample