DNS-Lookup in Haskell

Question

Ich versuche, eine einfache Suche zu tun, zum Beispiel konvertieren "perdu.com" in "208.97.177.124". Ich habe versucht, Network.DNS.Lookup verwenden, da, dass das erste Ergebnis auf Googles, und es funktioniert gut:

rs <- makeResolvSeed defaultResolvConf 
eIp <- withResolver rs $ \resolver -> lookupA resolver $ BS.pack "perdu.com" 

Das Problem ist, dass scheint, die/etc/hosts-Datei zu ignorieren. Was ist der richtige Weg in Haskell, um eine Domain "normal" aufzulösen, wie andere Software wie Ping oder irgendein Browser es tun würde? Ich nehme an, dass Network.DNS.Lookup einen vollständigen rekursiven Resolver implementiert, anstatt nur die C-Funktionen zu verwenden?

Answer 1

Das ist für mich gearbeitet:

import Network.BSD (getHostByName, hostAddress) 
import Network.Socket (inet_ntoa) 
import System.Environment (getArgs) 

resolve address = do 
    ent <- getHostByName address 
    inet_ntoa (hostAddress ent) 

main = resolve "perdu.com" >>= putStrLn