Fix up the stats display

ndmitchell · ndmitchell · commit 6c32b3a484ce · 2024-01-14T10:55:56.000Z
diff --git a/CHANGES.txt b/CHANGES.txt
@@ -1,5 +1,6 @@
 Changelog for Hoogle (* = API change, @ = database format change)
 
+    Fix up the output of /stats to account for API changes
     #380, move results before left anchors in tab focus order
 5.0.18.3, released 2021-12-24
     Compatibility with aeson-2.0
diff --git a/src/Action/Server.hs b/src/Action/Server.hs
@@ -143,7 +143,7 @@ replyServer log local links haddock store cdn home htmlDir scope Input{..} = cas
         stats <- getStatsDebug
         pure $ case stats of
             Nothing -> OutputFail $ lbstrPack "GHC Statistics is not enabled, restart with +RTS -T"
-            Just x -> OutputText $ lbstrPack $ replace ", " "\n" $ takeWhile (/= '}') $ drop1 $ dropWhile (/= '{') $ show x
+            Just x -> OutputText $ lbstrPack x
     "haddock":xs | Just x <- haddock -> do
         let file = intercalate "/" $ x:xs
         pure $ OutputFile $ file ++ (if hasTrailingPathSeparator file then "index.html" else "")
