2 files changed, 7 insertions, 7 deletions

diff --git a/src/Data/Torrent.hs b/src/Data/Torrent.hs
index 35bed5f2..c3753d4f 100644
--- a/src/Data/Torrent.hs
+++ b/src/Data/Torrent.hs
@@ -5,9 +5,9 @@
 --   Stability   :  experimental
 --   Portability :  portable
 --
+--   This module provides torrent metainfo serialization.
 {-# OPTIONS -fno-warn-orphans #-}
 {-# LANGUAGE OverloadedStrings #-}
--- | This module provides torrent metainfo serialization.
 module Data.Torrent
        ( module Data.Torrent.InfoHash
        , Torrent(..), ContentInfo(..), FileInfo(..)
diff --git a/src/Network/BitTorrent/PeerWire/Block.hs b/src/Network/BitTorrent/PeerWire/Block.hs
index 9685a4fb..582accdb 100644
--- a/src/Network/BitTorrent/PeerWire/Block.hs
+++ b/src/Network/BitTorrent/PeerWire/Block.hs
@@ -21,13 +21,13 @@ type PieceLIx = Int
 type PieceIx = Int
 
 data BlockIx = BlockIx {
-    -- ^ Zero-based piece index.
+    -- | Zero-based piece index.
     ixPiece  :: {-# UNPACK #-} !PieceLIx
 
-    -- ^ Zero-based byte offset within the piece.
+    -- | Zero-based byte offset within the piece.
   , ixOffset :: {-# UNPACK #-} !Int
 
-    -- ^ Block size starting from offset.
+    -- | Block size starting from offset.
   , ixLength :: {-# UNPACK #-} !Int
   } deriving (Show, Eq)
 
@@ -55,13 +55,13 @@ ppBlockIx ix = "piece = "  ++ show (ixPiece ix)  ++ ", "
             ++ "length = " ++ show (ixLength ix)
 
 data Block = Block {
-    -- ^ Zero-based piece index.
+    -- | Zero-based piece index.
     blkPiece  :: PieceLIx
 
-    -- ^ Zero-based byte offset within the piece.
+    -- | Zero-based byte offset within the piece.
   , blkOffset :: Int
 
-    -- ^ Payload.
+    -- | Payload.
   , blkData   :: ByteString
   } deriving (Show, Eq)