Simplify isEnabled and add isEnabledWithContext

example/Main.hs

@@ -18,7 +18,6 @@ import qualified Data.Text as T
 import Data.Void (Void)
 import Servant.Client (BaseUrl (BaseUrl), Scheme (Http))
 import System.Exit (die)
-import Unleash (emptyContext)
 import Unleash.Client (
     HasUnleash (..),
     UnleashConfig (..),
@@ -60,7 +59,7 @@ program = do
 application :: Program Void
 application =
     forever do
-        enabled <- isEnabled featureToggle emptyContext
+        enabled <- isEnabled featureToggle
         liftIO . putStrLn $ T.unpack featureToggle <> " is " <> (if enabled then "enabled" else "disabled")
         liftIO . threadDelay $ 2 * 1000 * 1000
 

src/Unleash/Client.hs

@@ -18,7 +18,9 @@ module Unleash.Client (
     pollTogglesWithCustomStrategies,
     pushMetrics,
     isEnabled,
+    isEnabledWithContext,
     tryIsEnabled,
+    tryIsEnabledWithContext,
     getVariant,
     tryGetVariant,
     -- Re-exports
@@ -179,14 +181,23 @@ pushMetrics = do
 
 -- | Check if a feature is enabled or not. Blocks until first feature toggle set is received. Blocks if the mutable metrics variables are empty.
 isEnabled ::
+    (HasUnleash r, MonadReader r m, MonadIO m) =>
+    -- | Feature toggle name.
+    Text ->
+    -- | Client context.
+    m Bool
+isEnabled feature = isEnabledWithContext feature emptyContext
+
+-- | Check if a feature is enabled or not. Blocks until first feature toggle set is received. Blocks if the mutable metrics variables are empty.
+isEnabledWithContext ::
     (HasUnleash r, MonadReader r m, MonadIO m) =>
     -- | Feature toggle name.
     Text ->
     -- | Client context.
     Context ->
     -- | Whether or not the feature toggle is enabled.
     m Bool
-isEnabled feature context = do
+isEnabledWithContext feature context = do
     config <- asks getUnleashConfig
     state <- liftIO . readMVar $ config.state
     enabled <- featureIsEnabled state feature context
@@ -195,14 +206,23 @@ isEnabled feature context = do
 
 -- | Check if a feature is enabled or not. Returns false for all toggles until first toggle set is received. Blocks if the mutable metrics variables are empty.
 tryIsEnabled ::
+    (HasUnleash r, MonadReader r m, MonadIO m) =>
+    -- | Feature toggle name.
+    Text ->
+    -- | Client context.
+    m Bool
+tryIsEnabled feature = tryIsEnabledWithContext feature emptyContext
+
+-- | Check if a feature is enabled or not. Returns false for all toggles until first toggle set is received. Blocks if the mutable metrics variables are empty.
+tryIsEnabledWithContext ::
     (HasUnleash r, MonadReader r m, MonadIO m) =>
     -- | Feature toggle name.
     Text ->
     -- | Client context.
     Context ->
     -- | Whether or not the feature toggle is enabled.
     m Bool
-tryIsEnabled feature context = do
+tryIsEnabledWithContext feature context = do
     config <- asks getUnleashConfig
     maybeState <- liftIO . tryReadMVar $ config.state
     case maybeState of

unleash-client-haskell.cabal

@@ -85,4 +85,3 @@ executable example
         servant-client,
         text,
         unleash-client-haskell,
-        unleash-client-haskell-core,