1 files changed, 13 insertions, 0 deletions

diff --git a/network-addr/src/Network/Address.hs b/network-addr/src/Network/Address.hs
index 9cfbbb40..57bb11d1 100644
--- a/network-addr/src/Network/Address.hs
+++ b/network-addr/src/Network/Address.hs
@@ -41,6 +41,8 @@ module Network.Address
        , ipFamily
        , is4mapped
        , either4or6
+       , make6mapped4
+       , canonize
 
          -- * PeerId
          -- $peer-id
@@ -132,6 +134,7 @@ import Text.PrettyPrint.HughesPJClass hiding ((<>),($$))
 #if !MIN_VERSION_time(1,5,0)
 import System.Locale    (defaultTimeLocale)
 #endif
+import System.Endian (fromBE32)
 import System.Entropy
 import DPut
 import DebugTag
@@ -1242,6 +1245,16 @@ either4or6 a6@(SockAddrInet6 port _ addr _)
     | Just ip4 <- (fromSockAddr a6 >>= un4map) = Left (setPort port $ toSockAddr ip4)
     | otherwise                                = Right a6
 
+make6mapped4 :: SockAddr -> SockAddr
+make6mapped4 addr@(SockAddrInet6 {}) = addr
+make6mapped4 addr@(SockAddrInet port a) = SockAddrInet6 port 0 (0,0,0xFFFF,fromBE32 a) 0
+
+canonize :: SockAddr -> SockAddr
+canonize a6@(SockAddrInet6 port _ addr _)
+    | Just ip4 <- (fromSockAddr a6 >>= un4map) = setPort port $ toSockAddr ip4
+canonize a = a
+
+
 data WantIP = Want_IP4 | Want_IP6 | Want_Both
  deriving (Eq, Enum, Ord, Show)