From 3bd3dbaaf6c840e05b90da8a8fd1e051cf473255 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Roman=20Smr=C5=BE?= Date: Wed, 12 Aug 2026 21:41:28 +0200 Subject: Key handling in MonadStorage class --- src/Erebos/State.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Erebos/State.hs') diff --git a/src/Erebos/State.hs b/src/Erebos/State.hs index d930248..d74dddb 100644 --- a/src/Erebos/State.hs +++ b/src/Erebos/State.hs @@ -112,7 +112,7 @@ instance SharedType (Maybe ComposedIdentity) where sharedTypeID _ = mkSharedTypeID "0c6c1fe0-f2d7-4891-926b-c332449f7871" -class (MonadIO m, MonadStorage m, HeadType a) => MonadHead a m where +class (MonadStorage m, HeadType a) => MonadHead a m where updateLocalHead :: (Stored a -> m (Stored a, b)) -> m b getLocalHead :: m (Stored a) getLocalHead = updateLocalHead $ \x -> return (x, x) -- cgit v1.2.3