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:
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,

4
src/PlausibleQuery.hs
View file

@ -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),