From 6c13b1285605020bb3c510dd1862d2d8d9828337 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Roman=20Smr=C5=BE?= <roman.smrz@seznam.cz>
Date: Sun, 17 Jul 2022 22:51:32 +0200
Subject: Generalize head updates to provided MonadIO instances

---
 src/Service.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/Service.hs')

diff --git a/src/Service.hs b/src/Service.hs
index 22c983b..96fa63d 100644
--- a/src/Service.hs
+++ b/src/Service.hs
@@ -116,7 +116,7 @@ instance MonadStorage (ServiceHandler s) where
 
 instance MonadHead LocalState (ServiceHandler s) where
     updateLocalHead f = do
-        (ls, x) <- liftIO . f =<< gets svcLocal
+        (ls, x) <- f =<< gets svcLocal
         modify $ \s -> s { svcLocal = ls }
         return x
 
-- 
cgit v1.2.3