diff --git a/src/AFRP.hs b/src/AFRP.hs
index 11da618..ff7a046 100644
--- a/src/AFRP.hs
+++ b/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