Make the type variable

src/AFRP.hs

@@ -332,7 +332,7 @@ hold def = mapAccum step def id
 holdKnown :: (Serialize a, Eq a) => Mealy m (Event a) (Maybe a)
 holdKnown = arr (fmap Just) >>> hold Nothing
 
-snapshot :: (Serialize a, Eq a) => a -> Mealy m (Event (), a) a
+snapshot :: (Serialize a, Eq a) => a -> Mealy m (Event x, a) a
 snapshot def = mapAccum step def id
   where
     step prev (Tick, _) = prev