diff options
| author |  Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-24 13:45:52 +0900 |
|---|---|---|
| committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-24 13:45:52 +0900 |
| commit | 2b3919681b49d6f31311bfaf4bc3a958a076618d (patch) | |
| tree | 12af957899caedf2b47a87dc3b5dc2b82b6fd0d3 /Network/DNS/Response.hs | |
| parent | 6dc94202a991b716be72acdc5cee367b2e8ef081 (diff) | |
hlint.
Diffstat (limited to 'Network/DNS/Response.hs')
| -rw-r--r-- | Network/DNS/Response.hs | 2 |
1 files changed, 1 insertions, 1 deletions
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 |