diff --git a/src/Network/OpenID/SSL.hs b/src/Network/OpenID/SSL.hs
index 49a0c7f..4d5dbb2 100644
--- 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 ()