From 2b3919681b49d6f31311bfaf4bc3a958a076618d Mon Sep 17 00:00:00 2001 From: Kazu Yamamoto Date: Mon, 24 Oct 2011 13:45:52 +0900 Subject: hlint. --- Network/DNS/Response.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Network/DNS/Response.hs') diff --git a/Network/DNS/Response.hs b/Network/DNS/Response.hs index abcb8ba..523335b 100644 --- a/Network/DNS/Response.hs +++ b/Network/DNS/Response.hs @@ -15,7 +15,7 @@ import Data.ByteString (ByteString) import qualified Data.ByteString.Lazy as BL runDNSFormat :: BL.ByteString -> Either String (DNSFormat, PState) -runDNSFormat bs = runSGet decodeResponse bs +runDNSFormat = runSGet decodeResponse runDNSFormat_ :: BL.ByteString -> Either String DNSFormat runDNSFormat_ bs = fst <$> runDNSFormat bs -- cgit v1.2.3