関数の戻り引数をHaskellに格納する方法

Question

withResponseの3番目の引数の戻り値型を別の関数brReadに使用する予定です。次のコードから

parse error on input `)' Failed, modules loaded: none.

（Network.HTTP.Clientを使用して）：：

startOn url = do 
    man <- newManager defaultManagerSettings 
    req <- parseUrl url 
    withResponse req man (let x = return (withResponse req man)) 
    brRead x 
    return $ read 

任意のアイデア私はこのエラーを取得しますか？

Answer 1

あなたは混乱しており、これを開梱するには少し時間がかかります。

あなたがIORef Sを使用してIOモナドの内部で作業しているときに、入力パラメータをこっそりする一般的な方法がありますが、私はのでことを伝えるつもりはない：それはないです

1. withResponseの戻り値は、その3番目のパラメータが返す値なので何もしないでください。
2. Response BodyReaderをwithResponseから外すと、それは閉じられ、あなたはそれを読むことができないので、助けにならないでしょう。

まず第一に、withResponseの種類はこれです：

今

withResponse :: Request -> Manager -> (Response BodyReader -> IO a) -> IO a 

、description of withResponseはそれを明確Response BodyReaderオブジェクトがwithResponseのアクション内部でのみ有効であることになります。したがって、あなたが要求しているようにそのオブジェクトをwithResponseから取り出そうとすると、そのオブジェクトを読むことはできません。 Response BodyReaderオブジェクトは既にクローズされています。

代わりに、応答を使用して何かを実行し、その関数を渡す関数を作成する必要があります。

startOn url = do 
    man <- newManager defaultManagerSettings 
    req <- parseUrl url 
    read <- withResponse req man (brRead . responseBody) 
    return $ read 

あなたに与えられたURLの最初のByteStringチャンクを返すことが、それはすべてあなたです場合：あなたがやりたいことを主張すべてが単一の時間応答で通話brReadで、あなたがこれを行うことができますので、必要、それは大丈夫です。あなたがここでやろうとしていることは、応答の全体ByteStringを返す場合には、すでにそのための便利な機能があります - httpLbs：

startOn url = do 
    man <- newManager defaultManagerSettings 
    req <- parseUrl url 
    response <- httpLbs req man 
    return $ responseBody response