带有0MQ Haskell绑定的运行时错误：getIntOpt：已中断（系统调用已中断）

Question

具有以下功能的是基于0MQ Haskell绑定的。 我在运行时出现错误。 该错误显示getIntOpt: interrupted (Interrupted system call) ，程序停止。

它可能必须对我使用的命令行选项进行某些处理，然后由于条件而放弃？

编辑：发现当我用cmdArgs离开自己的代码时，我也收到错误消息。 实际上，背后还有一个更有趣的问题。 请参阅此处的最后一段。 但是我仍然不知道如何有效地处理它。

    sendReceive :: B.ByteString -> IO ()
    sendReceive datastring = withContext 1 $ \context -> do
         withSocket context Req $ \requester -> do
            --putStrLn "Connecting ..."
            connect requester "tcp://192.168.35.84:5559"
            let tryOnePing (!c, !f) i = do
                send requester datastring []
                --putStrLn "Sent ..."
                r <- receive requester []
                --putStrLn "Received ..."
                return $ case B.unpack r of
                   datastring -> (c+1, f)
                   _ -> (c, f+1)
            (c,f) <- foldM tryOnePing (0,0) [1 .. 1000]
            -- c and f are not used in this example
            return ()

main = do
     n <- cmdArgsRun strlen
     let datastring  = B.pack (take (byte n) $ randomRs ('a','z') (mkStdGen 3))
     putStrLn "Starting..."
     withArgs [] $ defaultMain [bench "sendReceive" $ whnfIO (sendReceive datastring)]

Answer 1

绑定使用FFI辅助函数throwErrnoIfMinus1_ ，如果包装的函数返回-1则该函数会从errno引发错误。 新的zeromq库希望调用者正确处理EINTR ，这在这里没有发生。

您可以要求库维护者使用throwErrnoIfMinus1Retry_ ，如果它返回-1并且errno设置为EINTR ，它将自动重试包装的函数。

看起来您可以捕获IOException ，但是我不知道如何获得errno的值，即使它存储在errno也是如此（除非您要导入GHC.IO.Exception ，这对我来说似乎很可疑） ）。