"InternalIOException getAddrInfo: không tồn tại (lỗi 10093)" trên Windows 8

Question

Tại sao mã đơn giản như vậy không hoạt động?

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

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

Nó là kết quả trong các lỗi sau:

TestConduit.exe: InternalIOException getAddrInfo: does not exist (error 10093)

Answer 1

Bạn phải sử dụng withSocketsDo để khởi tạo ổ cắm. Như sau:

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