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/Query.hs | |
| parent | 6dc94202a991b716be72acdc5cee367b2e8ef081 (diff) | |
hlint.
Diffstat (limited to 'Network/DNS/Query.hs')
| -rw-r--r-- | Network/DNS/Query.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Network/DNS/Query.hs b/Network/DNS/Query.hs index 3ebd5e0..bdf86bc 100644 --- a/Network/DNS/Query.hs +++ b/Network/DNS/Query.hs @@ -109,7 +109,7 @@ encodeRDATA rd = case rd of (RD_MX prf dom) -> mconcat [putInt16 prf, encodeDomain dom] (RD_TXT txt) -> putByteString txt (RD_OTH bytes) -> mconcat $ map putInt8 bytes - (RD_SOA d1 d2 serial refresh retry expire min') -> mconcat $ + (RD_SOA d1 d2 serial refresh retry expire min') -> mconcat [ encodeDomain d1 , encodeDomain d2 , putInt32 serial @@ -118,7 +118,7 @@ encodeRDATA rd = case rd of , putInt32 expire , putInt32 min' ] - (RD_SRV prio weight port dom) -> mconcat $ + (RD_SRV prio weight port dom) -> mconcat [ putInt16 prio , putInt16 weight , putInt16 port |