windows - Windows 8 で「InternalIOException getAddrInfo: 存在しません (エラー 10093)」

Question

なぜこんな単純なコードが動かないのでしょうか?

import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as L

main :: IO ()
main = simpleHttp "http://www.dir.bg/" >>= L.putStr

次のエラーが発生します。

TestConduit.exe: InternalIOException getAddrInfo: 存在しません (エラー 10093)

Answer 1

ソケットを初期化するにはwithSocketsDoを使用する必要があります。このような：

import Network.HTTP.Conduit
import qualified Data.ByteString.Lazy as L
import Network (withSocketsDo)

main :: IO ()
main = withSocketsDo
      $ simpleHttp "http://www.dir.bg/" >>= L.putStr