Update unleash-haskell-client-core to 0.8.4

Export all fields from VariantResponse.
finn-no · Feb 6, 2023 · 39904a0 · 39904a0
1 parent f909f98
commit 39904a0
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 9 deletions.
diff --git a/flake.lock b/flake.lock
diff --git a/flake.nix b/flake.nix
@@ -8,7 +8,7 @@
     flake-utils.url = "github:numtide/flake-utils";
     nixpkgs.url = "github:nixos/nixpkgs/nixpkgs-unstable";
     unleash-client-haskell-core.url =
-      "github:finn-no/unleash-client-haskell-core?ref=0.8.2";
+      "github:finn-no/unleash-client-haskell-core?ref=0.8.4";
   };
   outputs =
     { self, nixpkgs, flake-compat, flake-utils, unleash-client-haskell-core }:

diff --git a/src/Unleash/Client.hs b/src/Unleash/Client.hs
@@ -22,7 +22,7 @@ module Unleash.Client (
     -- Re-exports
     Context (..),
     emptyContext,
-    VariantResponse,
+    VariantResponse (..),
 ) where
 
 import Control.Concurrent.MVar
@@ -33,7 +33,7 @@ import Data.Text (Text)
 import Data.Time (UTCTime, getCurrentTime)
 import Network.HTTP.Client.TLS (newTlsManager)
 import Servant.Client (BaseUrl, ClientEnv, ClientError, mkClientEnv)
-import Unleash (Context (..), Features, MetricsPayload (..), RegisterPayload (..), VariantResponse, emptyContext, emptyVariantResponse, featureGetVariant, featureIsEnabled)
+import Unleash (Context (..), Features, MetricsPayload (..), RegisterPayload (..), VariantResponse (..), emptyContext, emptyVariantResponse, featureGetVariant, featureIsEnabled)
 import Unleash.Internal.HttpClient (getAllClientFeatures, register, sendMetrics)
 
 -- | Smart constructor for Unleash client configuration. Initializes the mutable variables properly.

diff --git a/src/Unleash/Internal/HttpClient.hs b/src/Unleash/Internal/HttpClient.hs
@@ -23,7 +23,7 @@ import Paths_unleash_client_haskell (version)
 import Servant.API (Accept (contentTypes), Get, Header, JSON, MimeRender (mimeRender), NoContent, PostNoContent, ReqBody, type (:<|>) (..), type (:>))
 import Servant.Client (ClientEnv, ClientError, client, runClientM)
 import Unleash.Internal.DomainTypes (Features, fromJsonFeatures, supportedStrategies)
-import Unleash.Internal.JsonTypes (FullMetricBucket (..), FullMetricsPayload (..), FullRegisterPayload (..), MetricsPayload, RegisterPayload, YesAndNoes (..))
+import Unleash.Internal.JsonTypes (FullMetricsBucket (..), FullMetricsPayload (..), FullRegisterPayload (..), MetricsPayload, RegisterPayload, YesAndNoes (..))
 import qualified Unleash.Internal.JsonTypes as UJT
 
 type Register = "api" :> "client" :> "register" :> Header "Authorization" Text :> Header "Content-Type" Text :> ReqBody '[CustomJSON] FullRegisterPayload :> PostNoContent
@@ -77,7 +77,7 @@ sendMetrics clientEnv apiKey metricsPayload = do
                 { appName = metricsPayload.appName,
                   instanceId = metricsPayload.instanceId,
                   bucket =
-                    FullMetricBucket
+                    FullMetricsBucket
                         { start = metricsPayload.start,
                           stop = metricsPayload.stop,
                           toggles = makeMapOfYesAndNoes metricsPayload.toggles