schmittlauch/Hash2Pub
1
0
Fork 1
Code Issues 47 Pull requests Releases Wiki Activity

IPv6 only, noone needs legacy stuff

Browse source
This commit is contained in:
Trolli Schmittlauch 2020-04-09 00:38:55 +02:00
parent 3faa4a8d61
commit e13dac4ded
2 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
Hash2Pub/democlient.hs
View file

@ -13,6 +13,7 @@ import qualified Data.ByteString.UTF8 as BSU
main = do main = do
sock <- socket AF_INET6 Datagram defaultProtocol sock <- socket AF_INET6 Datagram defaultProtocol
setSocketOption sock IPv6Only 1
-- lookup destination to get a SockAddr -- lookup destination to get a SockAddr
let hints = defaultHints { addrFamily = AF_INET6, addrSocketType = Datagram} let hints = defaultHints { addrFamily = AF_INET6, addrSocketType = Datagram}
destAddr <- addrAddress . head <$> getAddrInfo (Just hints) (Just "::1") (Just "7331") destAddr <- addrAddress . head <$> getAddrInfo (Just hints) (Just "::1") (Just "7331")

1
Hash2Pub/demoserver.hs
View file

@ -14,6 +14,7 @@ import qualified Data.ByteString as BS
main = do main = do
sock <- socket AF_INET6 Datagram defaultProtocol sock <- socket AF_INET6 Datagram defaultProtocol
setSocketOption sock IPv6Only 1
-- lookup destination to get a SockAddr -- lookup destination to get a SockAddr
let hints = defaultHints { addrFamily = AF_INET6, addrSocketType = Datagram} let hints = defaultHints { addrFamily = AF_INET6, addrSocketType = Datagram}
serverAddr <- addrAddress . head <$> getAddrInfo (Just hints) (Just "::1") (Just "7331") serverAddr <- addrAddress . head <$> getAddrInfo (Just hints) (Just "::1") (Just "7331")