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

require client to use the same path format as plausible (/ ended)

Browse source
This commit is contained in:
outfoxxed 2025-02-10 22:50:37 -08:00
parent 7a7a3b65f8
commit cb2f1ae064
Signed by: outfoxxed
GPG key ID: 4C88A185FB89301E
1 changed files with 1 additions and 8 deletions

9
src/PlausibleQuery.hs
View file

@ -27,16 +27,9 @@ instance FromJSON MRResult where
parseMetricsResponse :: MetricsResponse -> Either String (Map String Int) parseMetricsResponse :: MetricsResponse -> Either String (Map String Int)
parseMetricsResponse MetricsResponse { results = r } = Map.fromList <$> mapM parseResult r parseMetricsResponse MetricsResponse { results = r } = Map.fromList <$> mapM parseResult r
where parseResult :: MRResult -> Either String (String, Int) where parseResult :: MRResult -> Either String (String, Int)
parseResult MRResult { metrics = [count], dimensions = [path] } = Right (removeTrailingSlash path, count) parseResult MRResult { metrics = [count], dimensions = [path] } = Right (path, count)
parseResult result = Left $ "Could not parse result: " ++ show result parseResult result = Left $ "Could not parse result: " ++ show result
removeTrailingSlash "/" = "/"
removeTrailingSlash xs = removeTrailingSlash' xs
removeTrailingSlash' "" = ""
removeTrailingSlash' "/" = ""
removeTrailingSlash' (x:xs) = x : removeTrailingSlash' xs
queryPageviews :: C.Config -> IO (Either String (Map String Int)) 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)