outfoxxed/blog-proxy
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

don't parse plausible tokens as utf8

Browse source 
They'll always be ascii
This commit is contained in:
outfoxxed 2025-02-10 23:17:45 -08:00
parent cb2f1ae064
commit 0a400a801c
Signed by: outfoxxed
GPG key ID: 4C88A185FB89301E
2 changed files with 2 additions and 3 deletions

1
blog-proxy.cabal
View file

@ -17,7 +17,6 @@ executable blog-proxy
build-depends: build-depends:
base ^>= 4.18.2.0, base ^>= 4.18.2.0,
bytestring ^>= 0.11.5.0, bytestring ^>= 0.11.5.0,
utf8-string ^>= 1.0.0,
text ^>= 2.0.0, text ^>= 2.0.0,
split ^>= 0.2.5, split ^>= 0.2.5,
containers ^>= 0.6.7, containers ^>= 0.6.7,

4
src/PlausibleQuery.hs
View file

@ -5,7 +5,7 @@ module PlausibleQuery (queryPageviewsLoop) where
import GHC.Generics (Generic) import GHC.Generics (Generic)
import Data.Map (Map) 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.Map as Map
import qualified Data.Aeson as JSON import qualified Data.Aeson as JSON
import Data.Aeson (FromJSON, (.=)) import Data.Aeson (FromJSON, (.=))
@ -34,7 +34,7 @@ queryPageviews :: C.Config -> IO (Either String (Map String Int))
queryPageviews config = do queryPageviews config = do
request' <- H.parseRequest $ "POST " ++ C.queryUrl (C.plausible config) request' <- H.parseRequest $ "POST " ++ C.queryUrl (C.plausible config)
let request 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 $ H.setRequestBodyJSON
(JSON.object [ (JSON.object [
"site_id" .= C.siteId (C.plausible config), "site_id" .= C.siteId (C.plausible config),