"Wyjątek InternalIOException getAddrInfo: nie istnieje (błąd 10093)" w systemie Windows 8

Question

Dlaczego taki prosty kod nie działa?

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

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

Wynika to z następującego błędu:

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

Answer 1

Musisz użyć withSocketsDo zainicjować gniazda. Na przykład:

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