如何使用 snap-framework 发送 http 请求？

Question

我想使用 Snap 框架向外部 API 发送一个 http 请求。 Snap 支持吗？如果没有，怎么办？

Answer 1

您是否考虑过使用 Network.Wreq？

import qualified Data.ByteString.Lazy as LAZ
import qualified Data.ByteString.Lazy.Char8 as CHA

makeRequest :: IO (Network.Wreq.Response LAZ.ByteString)
makeRequest = do
   res <- get "https://www.example.com"
   let resBody = res ^. responseBody :: CHA.ByteString
   return (resBody)

使用简单的镜头语法并支持 HTTP 和 HTTPS。