use 'liftIO' for 'MonadRedis' instance

scrive · Nov 3, 2023 · 6ffe292 · 6ffe292
1 parent 58fbead
commit 6ffe292
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/Effectful/Redis.hs b/src/Effectful/Redis.hs
@@ -29,7 +29,7 @@ runRedis = evalStaticRep . Redis
 ----------------------------------------
 -- Orphan instance
 
-instance (Redis :> es) => R.MonadRedis (Eff es) where
+instance (IOE :> es, Redis :> es) => R.MonadRedis (Eff es) where
   liftRedis redis = do
     Redis connection <- getStaticRep
-    unsafeEff_ $ R.runRedis connection redis
+    liftIO $ R.runRedis connection redis