--------------------------------------------------------------------------------
newRequest :: Int32 -> Text -> Request
newRequest ver name =
  Request { _version = putField ver
          , _name    = putField $ Just name
          }
newRequest :: Int32 -> Text -> Request
newRequest ver name =
  Request { _version = putField ver
          , _name    = putField $ Just name
          }
newRequest ver name =
  Request { _version = putField ver
          , _name    = putField $ Just name
          }