"InternalIOException getAddrInfo: не существует (ошибка 10093)" в Windows 8

Почему такой простой код не работает?

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)

Ответ 1

Для инициализации сокетов вы должны использовать сSocketsDo. Вот так:

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