4 files changed, 7 insertions, 6 deletions

diff --git a/dht/src/Network/Lossless.hs b/dht/src/Network/Lossless.hs
index 079f4d07..41203ca5 100644
--- a/dht/src/Network/Lossless.hs
+++ b/dht/src/Network/Lossless.hs
@@ -49,9 +49,9 @@ lossless :: Show addr =>
     -> addr                                                 -- ^ The remote address for this session.
     -> TransportA String addr x y                           -- ^ An unreliable lossy transport.
 
-    -> IO ( Transport String addr' x' -- ^ A reliable lossless transport.
-          , [Word32] -> IO ()         -- ^ Use this to request lost packets be re-sent.
-          , IO ([Word32],Word32)      -- ^ Use this to discover missing packets to request.
+    -> IO ( Transport String addr' x' -- A reliable lossless transport.
+          , [Word32] -> IO ()         -- Use this to request lost packets be re-sent.
+          , IO ([Word32],Word32)      -- Use this to discover missing packets to request.
           )
 lossless lbl isLossless encode saddr udp = do
     pb <- atomically newPacketBuffer
diff --git a/dht/src/Network/Tox.hs b/dht/src/Network/Tox.hs
index 23dbfe27..1628b435 100644
--- a/dht/src/Network/Tox.hs
+++ b/dht/src/Network/Tox.hs
@@ -392,7 +392,7 @@ newToxOverTransport keydb addr onNewSession (crypto,roster) udp tcp = do
                             return (msg, maybe (Multi.OnionUDP ==> addr) (const $ Multi.OnionTCP ==> addr) mtcp))
             <$> mergeTransports (DMap.fromList
                 [ Multi.OnionUDP :=> ByAddress onioncryptUDP
-                , Multi.OnionTCP :=> ByAddress {- $ onInbound updateOnTCP -} onioncryptTCP ])
+                , Multi.OnionTCP :=> ByAddress {- onInbound updateOnTCP -} onioncryptTCP ])
 
     -- dtacrypt :: Transport String AnnouncedRendezvous (PublicKey,OnionData)
     (dtacrypt,onioncrypt) <- partitionTransportM (Onion.parseDataToRoute crypto) (Onion.encodeDataToRoute crypto) onioncrypt
diff --git a/dht/src/Network/Tox/ContactInfo.hs b/dht/src/Network/Tox/ContactInfo.hs
index e7cb48c1..d5640ce8 100644
--- a/dht/src/Network/Tox/ContactInfo.hs
+++ b/dht/src/Network/Tox/ContactInfo.hs
@@ -18,8 +18,9 @@ import DPut
 import DebugTag
 
 newtype ContactInfo extra = ContactInfo
+    {
       -- | Map our toxid public key to an Account record.
-    { accounts :: TVar (HashMap NodeId{-my userkey-} (Account extra))
+      accounts :: TVar (HashMap NodeId{-my userkey-} (Account extra))
     }
 
 data Account extra = Account
diff --git a/dht/src/Network/Tox/Onion/Routes.hs b/dht/src/Network/Tox/Onion/Routes.hs
index 2f13a513..374b9648 100644
--- a/dht/src/Network/Tox/Onion/Routes.hs
+++ b/dht/src/Network/Tox/Onion/Routes.hs
@@ -276,7 +276,7 @@ updateTCP or addr x = do
 selectGateway :: TVar (R.BucketList TCP.NodeInfo) -> NodeInfo -> STM (Maybe TCP.NodeInfo)
 selectGateway tbl ni = do
     ns <- kclosest TCP.tcpSpace 2 (nodeId ni) <$> readTVar tbl
-    return $ listToMaybe ns -- $ dropWhile (\n -> TCP.nodeId n == nodeId ni) ns
+    return $ listToMaybe ns -- dropWhile (\n -> TCP.nodeId n == nodeId ni) ns
 
 quitRouteBuilder :: OnionRouter -> IO ()
 quitRouteBuilder or = do