diff options
| author |  Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-24 16:14:27 +0900 |
|---|---|---|
| committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2011-10-24 16:14:27 +0900 |
| commit | 4fa2676715d20ad9b7b01d504188a538cd20194d (patch) | |
| tree | f0e16437255a996f456b9ccebd6a2bb24783c0df /Network/DNS/Decode.hs | |
| parent | d16870464640fcd94d318a919dbf10eec0f96ee3 (diff) | |
ordering.
Diffstat (limited to 'Network/DNS/Decode.hs')
| -rw-r--r-- | Network/DNS/Decode.hs | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/Network/DNS/Decode.hs b/Network/DNS/Decode.hs index c84a06d..bb376da 100644 --- a/Network/DNS/Decode.hs +++ b/Network/DNS/Decode.hs @@ -1,8 +1,8 @@ {-# LANGUAGE OverloadedStrings #-} module Network.DNS.Decode ( - receive - , decode + decode + , receive ) where import Control.Applicative @@ -29,6 +29,8 @@ receive sock bufsize = receiveDNSFormat responseEnum where responseEnum = enumSocket bufsize sock +---------------------------------------------------------------- + {-| Parsing DNS data. -} decode :: BL.ByteString -> Either String DNSFormat |