Haskell actionFinally未运行在处理程序内调用的cmd

我有以下代码片段：

withContainer :: String -> (String -> Action a) -> Action a
  cid <= cmd "docker" [ "run" , "--rm", "-d", my_image ]
  ... 
  actionFinally (action containerName) $ do
    cmd_ "docker" [ "rm", "-f", filter (/= '\n') cid ]

withContainer:：String->（String->Action a）->Action a
cid这个代码示例看起来是正确的，单独测试它的变体确实有效。出现了一个bug，以找出它在您的案例中不起作用的确切原因
 这个代码示例看起来是正确的，单独测试它的变体确实有效。出现了一个bug，以找出它在您的案例中不起作用的确切原因