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