Search.hs

-- curl -v -u "$CVR_USER:$CVR_PASS" -H "Content-Type: application/json" -XPOST "$URL" -d"$QUERY"

searchReq :: SearchQuery -> IO ()
searchReq searchQuery = do
  cvrUser <- Env.getEnv "CVR_USER"
  cvrPass <- Env.getEnv "CVR_PASS"
  runReq tmpHttpConfig $ do
    let payload = toJSON searchQuery
    r <- req POST (https "distribution.virk.dk" /: "/cvr-permanent/virksomhed/_search")
                  (ReqBodyJson payload)
                  bsResponse -- jsonResponse
                  (basicAuth (BS.pack cvrUser) (BS.pack cvrPass))

    -- liftIO $ print (responseBody r :: Value)
    liftIO $ print (responseBody r :: ByteString)
  where
    tmpHttpConfig = defaultHttpConfig
      { httpConfigRetryPolicy = tmpRetryPolicy
      }

tmpRetryPolicy :: (Monad m) => RetryPolicyM m
tmpRetryPolicy = Retry.constantDelay 50 <> Retry.limitRetries 1