Fix a typo in a function definition

elliottt · Feb 20, 2011 · 848695d · 848695d
1 parent c6450bc
commit 848695d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/Network/OpenID/SSL.hs b/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 ()