From 7e4f6742c69eba8b0c6cfc1bf030ee89711e41a4 Mon Sep 17 00:00:00 2001 From: shum Date: Thu, 22 Oct 2026 15:56:42 +0000 Subject: [PATCH] store: let the Postgres credit specs compile --- tests/Bots/StoreService/NamesLateCreditTests.hs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/Bots/StoreService/NamesLateCreditTests.hs b/tests/Bots/StoreService/NamesLateCreditTests.hs index 94163bd7f9..5ae72330fc 100644 --- a/tests/Bots/StoreService/NamesLateCreditTests.hs +++ b/tests/Bots/StoreService/NamesLateCreditTests.hs @@ -639,7 +639,10 @@ testConcurrentCredits = withServiceStores $ \open -> do st <- open other <- open withLateOn st $ \l -> do - let due r = closedOrder l r False >> settleAt l r (SigClosed (btcPaid lateUnits lateUnits)) (at 70) `shouldReturn` Right ISExpired + let due :: Text -> IO () + due r = do + closedOrder l r False + settleAt l r (SigClosed (btcPaid lateUnits lateUnits)) (at 70) `shouldReturn` Right ISExpired forM_ [1 .. rounds] $ \n -> do let r = "x" <> T.pack (show n) due r