kazu-yamamoto/dns
1
1
Fork 0
mirror of https://github.com/kazu-yamamoto/dns.git synced 2024-10-06 10:40:07 +03:00
Code Issues Projects Releases Wiki Activity

style change.

Browse Source
This commit is contained in:
Kazu Yamamoto 2018-05-07 17:00:12 +09:00
parent c27ef78201
commit 424552e7a0
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Network/DNS/Decode/Internal.hs
View File

@ -256,8 +256,7 @@ getDomain' sep1 pointerStack = do
_ -> do
hs <- getNByteString n
ds <- getDomain' '.' []
let dom =
case ds of -- avoid trailing ".."
let dom = case ds of -- avoid trailing ".."
"." -> hs `BS.append` "."
_ -> hs `BS.append` BS.singleton sep1 `BS.append` ds
push pos dom