-- Note that loginRequest uses a url encoded body unlike other
--   requests (which are json objects)
loginRequest :: Context -> Text -> Text -> IO Request
loginRequest context username password =
  fmap
    (encodeBody (cAppKey context) username password)
    (parseUrlThrow "https://identitysso.betfair.com/api/login")
loginRequest :: Context -> Text -> Text -> IO Request
loginRequest context username password =
  fmap
    (encodeBody (cAppKey context) username password)
    (parseUrlThrow "https://identitysso.betfair.com/api/login")
loginRequest context username password =
  fmap
    (encodeBody (cAppKey context) username password)
    (parseUrlThrow "https://identitysso.betfair.com/api/login")