Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Cure haddock parse errors (at least for haddock 2.6.0)

  • Loading branch information...
commit 327cdbd3ae54a0149a09f3d7ef5ef10a874ecd47 1 parent 77aefc7
@feuerbach feuerbach authored
Showing with 7 additions and 6 deletions.
  1. +5 −5 src/FS.hs
  2. +2 −1  src/Protocol/Wire.hs
View
10 src/FS.hs
@@ -42,10 +42,10 @@ newtype Handles = Handles [(Handle, Integer)] -- ^[(fileHandle, fileLength)]
projectHandles :: Handles
-> Integer -- ^Torrent offset
-> Integer -- ^Torrent size
- -> [(Handle -- ^File handle
- ,Integer -- ^File chunk offset
- ,Integer -- ^File chunk size
- )]
+ -> [(Handle
+ ,Integer
+ ,Integer
+ )] -- ^ (File handle, file chunk offset, file chunk size)
{-
projectHandles handles offset size = let r = projectHandles' handles offset size
in trace ("projectHandles " ++
@@ -64,7 +64,7 @@ projectHandles (Handles handles@((h1, length1):handles')) offs size
| offs >= length1 =
projectHandles (Handles handles') (offs - length1) size
| otherwise =
- let size1 = length1 - offs -- ^How much of h1 to take?
+ let size1 = length1 - offs -- How much of h1 to take?
in if size1 >= size
then [(h1, offs, size)]
else (h1, offs, size1) :
View
3  src/Protocol/Wire.hs
@@ -10,7 +10,7 @@ module Protocol.Wire
, msgSize
, encodePacket
, decodeMsg
- , getMsg -- ^ Run attoparsec-based parser on input
+ , getMsg
, getAPMsg
, BitField
, constructBitField
@@ -168,6 +168,7 @@ instance Serialize Message where
<|> getAllowedFast
<|> getExtendedMsg
+-- | Run attoparsec-based parser on inputgetMsg :: Parser Message
getMsg :: Parser Message
getMsg = do
l <- apW32be
Please sign in to comment.
Something went wrong with that request. Please try again.