Skip to content

Commit

Permalink
Fix some comments
Browse files Browse the repository at this point in the history
  • Loading branch information
snoyberg committed Jan 16, 2013
1 parent 0955598 commit 42fc028
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions Network/HTTP/Conduit/Types.hs
Expand Up @@ -184,7 +184,7 @@ data Response body = Response
instance Functor Response where
fmap f (Response status v headers body) = Response status v headers (f body)

-- | Since 1.9
-- | Since 1.8.7
instance Show (RequestBody m) where
showsPrec d (RequestBodyBS a) =
showParen (d>=11) $ showString "RequestBodyBS " . showsPrec 11 a
Expand All @@ -199,7 +199,7 @@ instance Show (RequestBody m) where
showsPrec d (RequestBodySourceChunked _) =
showParen (d>=11) $ showString "RequestBodySource <Source m Builder>"

-- | Since 1.9.
-- | Since 1.8.7
-- Note that: @RequestBodyBS \<\> RequestBodyBS = RequestBodyLBS . fromChunks@
instance Monad m => Monoid (RequestBody m) where
mempty = RequestBodyLBS mempty
Expand Down

0 comments on commit 42fc028

Please sign in to comment.