More correct reaction to Null in case of error.

mgajda · Mar 11, 2014 · 7a0b5bb · 7a0b5bb
1 parent 6bbb413
commit 7a0b5bb
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/libssh2/src/Network/SSH/Client/LibSSH2/Errors.hs b/libssh2/src/Network/SSH/Client/LibSSH2/Errors.hs
@@ -167,7 +167,7 @@ handleNullPtr s fromPointer io = do
         (r, _) <- getLastError session
         case int2error r of
           EAGAIN -> threadWaitSession (Just session) >> handleNullPtr s fromPointer io
-          _      -> throw NULL_POINTER -- TODO: should we throw the error instead?
+          err    -> throw err          -- TODO: should we throw the error instead?
     else fromPointer p
 
 -- | Get currently blocked directions