Permalink
Browse files

Fix a typo in a function definition

  • Loading branch information...
1 parent c6450bc commit 848695d1ca247a8b0a7cd64e04f7df4ca78ff50c @elliottt committed Feb 20, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/Network/OpenID/SSL.hs
View
2 src/Network/OpenID/SSL.hs
@@ -64,7 +64,7 @@ instance Stream SSLHandle where
readBlock (SSLHandle _ ssl) n =
wrapRead ((map w2c . B.unpack) <$> Session.read ssl n)
- writeBlock (SSLHandle _ ssl) bs =
+ writeBlock (SSLHandle _ ssl) bs
| not (null bs) = wrap $ Session.write ssl $ B.pack $ map c2w $ bs
| otherwise = return $ Right ()

0 comments on commit 848695d

Please sign in to comment.