From 2758e4597ad5fa02272a1500581345d1339d2d79 Mon Sep 17 00:00:00 2001
From: joe <joe@jerkface.net>
Date: Tue, 8 Oct 2013 17:53:44 -0400
Subject: Handle address of LocalHost in peerAddr.  Fixes local echo case.

---
 Presence/XMPPTypes.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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
-- 
cgit v1.2.3