diff --git a/blog-proxy.cabal b/blog-proxy.cabal index dc1a7e4..5980c28 100644 --- a/blog-proxy.cabal +++ b/blog-proxy.cabal @@ -17,7 +17,6 @@ executable blog-proxy build-depends: base ^>= 4.18.2.0, bytestring ^>= 0.11.5.0, - utf8-string ^>= 1.0.0, text ^>= 2.0.0, split ^>= 0.2.5, containers ^>= 0.6.7, diff --git a/src/PlausibleQuery.hs b/src/PlausibleQuery.hs index c698ffc..de1dfc4 100644 --- a/src/PlausibleQuery.hs +++ b/src/PlausibleQuery.hs @@ -5,7 +5,7 @@ module PlausibleQuery (queryPageviewsLoop) where import GHC.Generics (Generic) import Data.Map (Map) -import qualified Data.ByteString.UTF8 as BS.UTF8 +import qualified Data.ByteString.Char8 as BS.Char8 import qualified Data.Map as Map import qualified Data.Aeson as JSON import Data.Aeson (FromJSON, (.=)) @@ -34,7 +34,7 @@ queryPageviews :: C.Config -> IO (Either String (Map String Int)) queryPageviews config = do request' <- H.parseRequest $ "POST " ++ C.queryUrl (C.plausible config) let request - = H.addRequestHeader H.hAuthorization (BS.UTF8.fromString $ "Bearer " ++ C.token (C.plausible config)) + = H.addRequestHeader H.hAuthorization (BS.Char8.pack $ "Bearer " ++ C.token (C.plausible config)) $ H.setRequestBodyJSON (JSON.object [ "site_id" .= C.siteId (C.plausible config),