Fixed haddock parse errors.

1 files changed, 14 insertions, 14 deletions

diff --git a/src/Network/Tox/DHT/Transport.hs b/src/Network/Tox/DHT/Transport.hs
index 5a2d8a84..d7f8e0cd 100644
--- a/src/Network/Tox/DHT/Transport.hs
+++ b/src/Network/Tox/DHT/Transport.hs
@@ -146,21 +146,21 @@ noReplyAddr saddr = either (error . mappend "noReplyAddr: ") id $ nodeInfo zeroI
 
 
 data DHTRequest
--- #### NAT ping request
---
---   Length   Contents
---  :------- :-------------------------
---   `1`      `uint8_t` (0xfe)
---   `1`      `uint8_t` (0x00)
---   `8`      `uint64_t` random number
+    -- #### NAT ping request
+    --
+    --   Length   Contents
+    --  :------- :-------------------------
+    --   `1`      `uint8_t` (0xfe)
+    --   `1`      `uint8_t` (0x00)
+    --   `8`      `uint64_t` random number
     = NATPing Nonce8
--- #### NAT ping response
---
---   Length   Contents
---  :------- :-----------------------------------------------------------------
---   `1`      `uint8_t` (0xfe)
---   `1`      `uint8_t` (0x01)
---   `8`      `uint64_t` random number (the same that was received in request)
+    -- #### NAT ping response
+    --
+    --   Length   Contents
+    --  :------- :-----------------------------------------------------------------
+    --   `1`      `uint8_t` (0xfe)
+    --   `1`      `uint8_t` (0x01)
+    --   `8`      `uint64_t` random number (the same that was received in request)
     | NATPong Nonce8
     | DHTPK LongTermKeyWrap
  deriving Show