diff options
| author |  Kazu Yamamoto <kazu@iij.ad.jp> | 2012-07-13 15:36:05 +0900 |
|---|---|---|
| committer | Kazu Yamamoto <kazu@iij.ad.jp> | 2012-07-13 15:36:05 +0900 |
| commit | 2eb482bfb9e0e0089ce33df98b0963043bf904f9 (patch) | |
| tree | 7b36301eab3651a27593561f6cea7e26f8e7d3c3 /Network/DNS/Decode.hs | |
| parent | 7be2952f50efce84f99c95c5e96df202ee2da68c (diff) | |
cosmetic change.
Diffstat (limited to 'Network/DNS/Decode.hs')
| -rw-r--r-- | Network/DNS/Decode.hs | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/Network/DNS/Decode.hs b/Network/DNS/Decode.hs index bb376da..b598d97 100644 --- a/Network/DNS/Decode.hs +++ b/Network/DNS/Decode.hs @@ -167,12 +167,11 @@ decodeDomain :: SGet Domain decodeDomain = do pos <- getPosition c <- getInt8 - if c == 0 - then return "" + if c == 0 then + return "" else do let n = getValue c - if isPointer c - then do + if isPointer c then do d <- getInt8 let offset = n * 256 + d fromMaybe (error $ "decodeDomain: " ++ show offset) <$> pop offset |