1 files changed, 1 insertions, 1 deletions

diff --git a/Presence/XMPPTypes.hs b/Presence/XMPPTypes.hs
index 41ce07c2..06cfb563 100644
--- a/Presence/XMPPTypes.hs
+++ b/Presence/XMPPTypes.hs
@@ -239,7 +239,7 @@ parseAddressJID jid = do
 
 peerAddr :: Peer -> SockAddr
 peerAddr (RemotePeer addr) = addr
--- peerAddr LocalHost = throw exception
+peerAddr LocalHost = SockAddrInet6 0 (0 {- FlowInfo -}) (0,0,0,1) (0 {- ScopeID -})
 
 socketFamily (SockAddrInet _ _)      = AF_INET
 socketFamily (SockAddrInet6 _ _ _ _) = AF_INET6