4 files changed, 7 insertions, 7 deletions

diff --git a/dht/Presence/Chat.hs b/dht/Presence/Chat.hs
index 03bea44b..9c109895 100644
--- a/dht/Presence/Chat.hs
+++ b/dht/Presence/Chat.hs
@@ -34,7 +34,7 @@ newtype Affiliation = Affiliation
     { reservedNick :: Text
     }
 
-data ChatEvent = Join | Part | Action Text | Talk Text -- | NickChange Text
+data ChatEvent = Join | Part | Action Text | Talk Text -- NickChange Text
  deriving (Eq,Ord,Show)
 
 data Membership = Outside | Inside
diff --git a/dht/Presence/ClientState.hs b/dht/Presence/ClientState.hs
index 08cc54ed..9c7e7b97 100644
--- a/dht/Presence/ClientState.hs
+++ b/dht/Presence/ClientState.hs
@@ -9,8 +9,8 @@ import UTmp       ( ProcessID )
 import XMPPServer ( Stanza )
 
 data ClientState = ClientState
-      -- | The unix tty or the jabber resource for this client.
-    { clientResource :: Text
+    { -- | The unix tty or the jabber resource for this client.
+      clientResource :: Text
       -- | Unix user that is running this client.
     , clientUser     :: Text
       -- | The specific roster/identity of the user that this client presenting.
diff --git a/dht/Presence/Presence.hs b/dht/Presence/Presence.hs
index c54c3659..87c00656 100644
--- a/dht/Presence/Presence.hs
+++ b/dht/Presence/Presence.hs
@@ -78,8 +78,8 @@ localJID user profile resource =
 -- unique value should be able to hold a reference to the ToxID identity which
 -- should stay online until all interested keys have run 'deactivateAccount'.
 data ToxManager k = ToxManager
-      -- | Put the given ToxID online.
-    { activateAccount        :: k -> Text -> SecretKey -> IO ()
+    { -- | Put the given ToxID online.
+      activateAccount        :: k -> Text -> SecretKey -> IO ()
       -- | Take the given ToxID offline (assuming no other /k/ has a claim).
     , deactivateAccount      :: k -> Text -> IO ()
     , toxConnections :: Connection.Manager ToxProgress ToxContact
diff --git a/dht/Presence/Stanza/Types.hs b/dht/Presence/Stanza/Types.hs
index 8fc23f84..f09025e0 100644
--- a/dht/Presence/Stanza/Types.hs
+++ b/dht/Presence/Stanza/Types.hs
@@ -122,14 +122,14 @@ data MessageType
                   -- to that resource; otherwise the server MUST either
                   -- silently ignore the message or return an error (see
                   -- Section 8).
-
+    --
     -- | ErrorMsg -- The message is generated by an entity that experiences an
     -- error when processing a message received from another entity (for
     -- details regarding stanza error syntax, refer to [XMPP‑CORE]). A client
     -- that receives a message of type "error" SHOULD present an appropriate
     -- interface informing the original sender regarding the nature of the
     -- error.
-
+    --
  deriving (Show,Read,Ord,Eq,Enum)