From 022342af321340ca1104eb6cc8e32e652be30e74 Mon Sep 17 00:00:00 2001 From: Mats Rauhala Date: Thu, 22 Oct 2026 12:17:58 +0300 Subject: [PATCH] Make the type variable --- src/AFRP.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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