Fix server output history

This was not reversed anymore (although the comment explained it)
cardano-scaling · Feb 22, 2025 · 1a8bd51 · 1a8bd51
1 parent 7c3c3cb
commit 1a8bd51
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/hydra-node/src/Hydra/API/Server.hs b/hydra-node/src/Hydra/API/Server.hs
@@ -110,9 +110,9 @@ withAPIServer config env party persistence tracer chain pparams serverOutputFilt
           -- FIXME: don't load whole history into memory
           .| sinkList
 
-    history <- newTVarIO loadedHistory
     -- NOTE: we need to reverse the list because we store history in a reversed
     -- list in memory but in order on disk
+    history <- newTVarIO $ reverse loadedHistory
     (notifyServerRunning, waitForServerRunning) <- setupServerNotification
 
     let serverSettings =