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