如何使用Network-HTTP-Conduit applyBasicAuth

Question

我想使用Network.HTTP.Conduit的基本身份验证，但无法使其工作。

从文档...

applyBasicAuth :: ByteString -> ByteString -> Request m -> Request mSource 

添加一个基本认证头（与指定的用户名和密码）给定的请求。忽略错误处理：

applyBasicAuth用户通$ fromJust $的parseURL网址

但是，当我试图实现一个简单的 “Hello World” 的例子：

import Data.ByteString as B 

import Network.HTTP.Conduit 
import Network.Socket 

main :: IO() 
main = withSocketsDo $ do 
    req <- applyBasicAuth user pass $ fromJust $ parseUrl "http://www.oracle.com" 
    response <- withManager $ httpLbs req 
    B.putStrLn $ responseBody response 
    where 
    user = B.pack "scott" 
    pass = B.pack "tiger" 

编译失败：不在范围：fromJust

make fromJust.exe && ./fromJust.exe 
ghc --make fromJust.hs 
[1 of 1] Compiling Main    (fromJust.hs, fromJust.o) 

fromJust.hs:16:37: Not in scope: `fromJust' 

Answer 1

“不在范围内：fromJust”表示编译器无法找到fromJust，因为它没有在您的模块或任何导入的模块（包括默认导入时自动导入的Prelude）中定义。

您需要自己从正确的模块中导入它。您可以find out which one using Hoogle。

在这种情况下，您需要导入Data.Maybe。