Fixed onion routes for IPv4-mapped IPv6 addresses.

1 files changed, 3 insertions, 2 deletions

diff --git a/src/Network/Tox/Onion/Transport.hs b/src/Network/Tox/Onion/Transport.hs
index baadbbe8..39ea8c46 100644
--- a/src/Network/Tox/Onion/Transport.hs
+++ b/src/Network/Tox/Onion/Transport.hs
@@ -246,9 +246,10 @@ encodeOnionAddr getRoute (msg,OnionDestination _ ni (Just rid)) = do
             return ( runPut $ putRequest $ wrapForRoute msg ni route
                    , nodeAddr $ routeNodeA route)
         mapM' f x = do
+            let _ = x :: Maybe OnionRoute
             hPutStrLn stderr $ "ONION encode sending to  " ++ show ni
-            hPutStrLn stderr $ "ONION encode getRoute -> " ++ show (mapM (\y -> map ($ y) [routeNodeA,routeNodeB,routeNodeC]) x)
-            mapM f x
+            hPutStrLn stderr $ "ONION encode getRoute -> " ++ show (fmap (\y -> map ($ y) [routeNodeA,routeNodeB,routeNodeC]) x)
+            mapM f x         -- ONION encode getRoute -> Nothing
     getRoute ni rid >>= mapM' go