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

src/PlausibleQuery.hs

@@ -27,16 +27,9 @@ instance FromJSON MRResult where
 parseMetricsResponse :: MetricsResponse -> Either String (Map String Int)
 parseMetricsResponse MetricsResponse { results = r } = Map.fromList <$> mapM parseResult r
   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
 
-        removeTrailingSlash "/" = "/"
-        removeTrailingSlash xs = removeTrailingSlash' xs
-
-        removeTrailingSlash' "" = ""
-        removeTrailingSlash' "/" = ""
-        removeTrailingSlash' (x:xs) = x : removeTrailingSlash' xs
-
 queryPageviews :: C.Config -> IO (Either String (Map String Int))
 queryPageviews config = do
   request' <- H.parseRequest $ "POST " ++ C.queryUrl (C.plausible config)