Reddit API in haskell

reddit_api.hs

{-# LANGUAGE OverloadedStrings #-}

module Main (main) where

import Control.Monad.IO.Class
import Data.Aeson
import Network.HTTP.Req
import qualified Text.URI as URI
import Data.Maybe (fromJust)


main :: IO ()
-- You can either make your monad an instance of 'MonadHttp', or use
-- 'runReq' in any IO-enabled monad without defining new instances.
main = runReq defaultHttpConfig $ do
  uri <- URI.mkURI "https://www.reddit.com/api/v1/access_token"
  let (url, options) = fromJust (useHttpsURI uri)
  r <- req POST url NoReqBody jsonResponse $
        "grant_type" =: ("password" :: String) <>
        "username" =: ("YOURID" :: String) <>
        "password" =: ("YOURPASSWORD" :: String) <>
        basicAuth "CLIENTID" "CLIENTSECRET"  <>
        header "User-Agent" "freebsd:trololol:v1.2.3 (by /u/USER)"
  liftIO $ print (responseBody r :: Value)