diff --git a/Network/DNS/Cache.hs b/Network/DNS/Cache.hs
--- a/Network/DNS/Cache.hs
+++ b/Network/DNS/Cache.hs
@@ -217,7 +217,7 @@
     eans <- resolv n resolvers dom
     return $ case eans of
         Left  err -> Left err
-        Right ans -> fromDNSFormat ans getHostAddressandTTL
+        Right ans -> fromDNSMessage ans getHostAddressandTTL
   where
     n = cacheNofServers cache
     seeds = cacheSeeds cache
@@ -228,7 +228,7 @@
     hostAddressandTTL r = (toAddr r, rrttl r)
     getHostAddressandTTL = map hostAddressandTTL . filter isA . answer
 
-resolv :: Int -> [Resolver] -> Domain -> IO (Either DNSError DNSFormat)
+resolv :: Int -> [Resolver] -> Domain -> IO (Either DNSError DNSMessage)
 resolv 1 resolvers dom = lookupRaw (head resolvers) dom A
 resolv _ resolvers dom = do
     asyncs <- mapM async actions
diff --git a/concurrent-dns-cache.cabal b/concurrent-dns-cache.cabal
--- a/concurrent-dns-cache.cabal
+++ b/concurrent-dns-cache.cabal
@@ -1,5 +1,5 @@
 Name:                   concurrent-dns-cache
-Version:                0.1.2
+Version:                0.1.3
 Author:                 Kazu Yamamoto <kazu@iij.ad.jp>
 Maintainer:             Kazu Yamamoto <kazu@iij.ad.jp>
 License:                BSD3