Runtimes and controllers

test/BusSpec.hs

@@ -32,9 +32,6 @@ spec = describe "Bus" $ do
     channelHassEval bus (CallService svc)
     atomically (readTChan (busOutbound bus)) `shouldReturn` svc
 
-  it "channelHassEval leaves Pure untouched" $ do
-    bus <- newBus 0
-    channelHassEval bus (Pure 42) `shouldReturn` (42 :: Int)
 
   it "generates unique sequential call ids" $ do
     gen <- mkCallIdGen 0