suppress unused do binding in Session

depressed-pho · Nov 1, 2014 · fd2fcad · fd2fcad
1 parent e835bec
commit fd2fcad
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/OpenSSL/Session.hsc b/OpenSSL/Session.hsc
@@ -119,7 +119,8 @@ context = mask_ $ do
   ctx   <- _ssl_method >>= _ssl_ctx_new
   cbRef <- newIORef Nothing
   mvar  <- newMVar ctx
-  mkWeakMVar mvar $ do
+  _ <- ($)
+    mkWeakMVar mvar $ do
     _ssl_ctx_free ctx
     readIORef cbRef >>= mapM_ freeHaskellFunPtr
   return $ SSLContext { ctxMVar = mvar, ctxVfCb = cbRef }
@@ -312,7 +313,8 @@ connection' context fd@(Fd fdInt) sock = do
       _ssl_set_fd ssl fdInt
       return ssl
     mvar <- newMVar ssl
-    mkWeakMVar mvar $ _ssl_free ssl
+    _ <- ($)
+      mkWeakMVar mvar $ _ssl_free ssl
     return mvar
   return $ SSL { sslCtx    = context
                , sslMVar   = mvar