-- http://stackoverflow.com/questions/3232074/what-is-the-best-way-to-convert-string-to-bytestring
encodeBody :: AppKey -> Text -> Text -> Request -> Request
encodeBody appKey username password req =
  urlEncodedBody
    [("username", cs username), ("password", cs password)]
    req {requestHeaders = headers appKey Nothing}
encodeBody :: AppKey -> Text -> Text -> Request -> Request
encodeBody appKey username password req =
  urlEncodedBody
    [("username", cs username), ("password", cs password)]
    req {requestHeaders = headers appKey Nothing}
encodeBody appKey username password req =
  urlEncodedBody
    [("username", cs username), ("password", cs password)]
    req {requestHeaders = headers appKey Nothing}