Some OpenSSL frobbing

[hcoop/domtool2.git] / src / openssl.sml

diff --git a/src/openssl.sml b/src/openssl.sml
index 3f3b292..df63276 100644 (file)
--- a/src/openssl.sml
+++ b/src/openssl.sml
@@ -45,16 +45,15 @@ fun ssl_err s =
        else
            (print (ZString.toML lib);
             print ":");
-           if C.Ptr.isNull func then
-               ()
-           else
-               (print (ZString.toML func);
-                print ":");
-               if C.Ptr.isNull reason then
-                   ()
-               else
-                   print (ZString.toML reason);
-               print "\n"
+       if C.Ptr.isNull func then
+           ()
+       else
+           (print (ZString.toML func);
+            print ":");
+       if C.Ptr.isNull reason then
+           ()
+       else
+           print (ZString.toML reason)
     end
 
 val readBuf : (C.uchar, C.rw) C.obj C.ptr' = C.alloc' C.S.uchar (Word.fromInt Config.bufSize)