0MQ 하스켈 바인딩에서 런타임 오류 : getIntOpt : 인터럽트 (시스템 호출 중단)

Question

아래 함수는 0MQ 하스켈 바인딩을 기반으로합니다. 런타임에 오류가 발생합니다. 오류가 getIntOpt: interrupted (Interrupted system call)이라고 표시되고 프로그램이 중지됩니다.

아마도 내가 사용하고 다음 기준으로 인해 버리는 명령 줄 옵션을 사용해야합니까?

편집 : cmdArgs를 사용하여 내 코드를 떠날 때 오류가 발생한다는 사실을 알았습니다. 실제로 훨씬 더 흥미로운 문제가 있습니다. 마지막 단락 here을 참조하십시오. 그러나 나는 그것을 효과적으로 다루는 방법을 아직 모른다.

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

바인딩은, 랩 된 기능 -1를 반환하는 경우 errno에서 오류를 던지는 FFI 도우미 기능 throwErrnoIfMinus1_을 사용합니다. 새로운 zeromq 라이브러리는 발신자가 EINTR을 올바르게 처리 할 것으로 기대합니다. 여기서는 발생하지 않습니다.

당신은 -1 및 errno이 EINTR로 설정되어 반환하는 경우 자동으로 포장 기능을 시도 throwErrnoIfMinus1Retry_를 사용하는 라이브러리 테이너를 요청할 수 있습니다.

당신이 나에게 그늘의 IT 보인다 GHC.IO.Exception를 가져올하지 않는 한 (이 그 안에 저장된다하더라도, 당신은 IOException을 잡을 수 있습니다,하지만 난 errno의 가치를 얻는 방법을 모르는 것 같습니다

).