From b705ef2baa0930aff3c43c31f3ea29caf969512b Mon Sep 17 00:00:00 2001 From: Sam T Date: Wed, 1 May 2013 08:05:27 +0400 Subject: ~ Fix documentation markup. --- src/Network/BitTorrent/PeerWire/Block.hs | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'src/Network/BitTorrent/PeerWire') 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) -- cgit v1.2.3