"InternalIOException getAddrInfo: does not exist (error 10093)" on Windows 8

Question

Why is such simple code not working?

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

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

It results in the following error:

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

Answer 1

You have to use withSocketsDo to initialize sockets. Like this:

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