Fix tests and add tests for kitchen lights

test/AFRPSpec.hs

@@ -20,6 +20,7 @@ import qualified Hedgehog.Range as Range
 import Test.Hspec
 import Test.Hspec.Hedgehog
 import Data.Maybe (listToMaybe)
+import AFRP.Diagram (emptyDiagram)
 
 fakeRequest :: Request
 fakeRequest = Request (sec 0) utc nil "test"
@@ -536,11 +537,11 @@ sampleSpec = describe "sample" $ do
 
 -- | A stateless arrow carrying a fixed entity set, for testing propagation.
 subscribed :: S.Set T.Text -> Mealy Identity Int Int
-subscribed ents = Mealy ents $ \_ -> Fun $ \_ a -> a
+subscribed ents = Mealy ents emptyDiagram $ \_ -> Fun $ \_ a -> a
 
 -- | Same as 'subscribed' but yields a function, for testing '<*>'.
 subscribedF :: S.Set T.Text -> Mealy Identity Int (Int -> Int)
-subscribedF ents = Mealy ents $ \_ -> Fun $ \_ a -> (a +)
+subscribedF ents = Mealy ents emptyDiagram $ \_ -> Fun $ \_ a -> (a +)
 
 entitiesSpec :: Spec
 entitiesSpec = describe "entities" $ do