Don't use unsafeRemoveEff in withStateSource

tomjaguarpaw · Nov 16, 2024 · e6b63a2 · e6b63a2
1 parent afb396a
commit e6b63a2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/bluefin-internal/src/Bluefin/Internal.hs b/bluefin-internal/src/Bluefin/Internal.hs
@@ -692,7 +692,7 @@ withStateSource ::
   (forall e. StateSource e -> Eff (e :& es) a) ->
   -- | ͘
   Eff es a
-withStateSource f = unsafeRemoveEff (f StateSource)
+withStateSource f = useImplIn f StateSource
 
 -- |
 -- @