Haskell有'when'和'unless'的組合嗎？

Question

我正在開發一個TCP客戶端，從流中獲取指定的類型消息，並且發現我自己使用了大量的表達式。例如：

hunt :: Socket -> ThreadId -> IO()        
hunt conn t = do threadDelay 1000000 
       msg <- recv conn 1024 
       unless (C.isInfixOf "1b14010102" $ encode msg) $ hunt conn t 
       when (C.isInfixOf "1b14010102" $ encode msg) $ do 
        threadDelay 7000000 
        sendAll conn $ goHunt 
        msg <- recv conn 1024 
        threadDelay 3000000 
        close conn 
        killThread t 

我試圖建立像一個幫手：

waitfor :: ByteString -> Socket -> t -> (ByteString -> Socket -> t -> IO()) -> IO() 
waitfor str conn tid f = do 
    threadDelay 1000000 
    msg <- recv conn 1024 
    let m = C.isInfixOf str msg 
    unless m $ waitfor str conn tid f 
    when m $ f msg conn tid 

然後我可以重新使用助手：

main = do 
    ... 
    tid <- myThreadId 
    conn <- joinWorld u 
    waitfor "1b14010102" conn tid hunt. 

但是，如果我有另一個功能（它採取3個不同於hunt的論點）

hunt' :: ByteString -> Socket -> ThreadId -> IO() 
hunt' idx conn t = do threadDelay 1000000 
         msg <- recv conn 1024 
         unless (C.isInfixOf "0300aa0801" $ encode msg) $ hunt' conn t 
         when (C.isInfixOf "0300aa0801" $ encode msg) $ do 
          threadDelay 1000000 
          sendAll conn $ goHunt' idx 
          threadDelay 3000000 
          close conn 
          killThread t 

然後我不能使用waitfor，並且需要再次使用when/unless。那麼，Haskell的組合是否爲when/unless？如果不是，那麼對我的情況來說，更好的方法是什麼？

Answer 1

您可以使用if ... then ... else。

例如，

waitfor :: ByteString -> Socket -> t -> (ByteString -> Socket -> t -> IO()) -> IO() 
waitfor str conn tid f = do 
    threadDelay 1000000 
    msg <- recv conn 1024 
    if C.isInfixOf str msg 
    then waitfor str conn tid f 
    else f msg conn tid