[tests] fix Message type

parent da1a7aaa
Pipeline #6551 failed with stages
in 6 minutes and 16 seconds
......@@ -89,7 +89,7 @@ instance Exception SimpleException
-- | Perform Action for this worker
pa :: (HasWorkerBroker b Message) => State b a -> BT.BrokerMessage b (Job Message) -> IO ()
pa :: (HasWorkerBroker b Message) => State b Message -> BT.BrokerMessage b (Job Message) -> IO ()
pa _state bm = do
let job' = BT.toA $ BT.getMessage bm
case job job' of
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment