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

remove trailing slashes from analytics paths

Browse source
This commit is contained in:
outfoxxed 2025-06-12 15:32:20 -07:00
parent ede1c5e623
commit b19325b675
Signed by: outfoxxed
GPG key ID: 4C88A185FB89301E
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
src/PlausibleQuery.hs
View file

@ -27,9 +27,14 @@ 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 (path, count) parseResult MRResult { metrics = [count], dimensions = [path] }
= Right (parsePagePath path, count)
parseResult result = Left $ "Could not parse result: " ++ show result parseResult result = Left $ "Could not parse result: " ++ show result
parsePagePath [] = []
parsePagePath "/" = []
parsePagePath (x:xs) = x:parsePagePath 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)