Skip to content

Commit 147a775

Browse files
committed
Update to quickcheck-lockstep-0.8
The most invasive change is that the `Realized` type family disappeared, but as a result we also have to run the `IOSim` test with the `RealWorld` state token. The `quickcheck-dynamic` library requires the return types of actions to be `Typeable`, and if the state token appears in the return type of an action (which it does in our tests), then the state token has to be typeable, which is only really possible if we use `RealWorld`.
1 parent 010a89c commit 147a775

File tree

9 files changed

+245
-319
lines changed

9 files changed

+245
-319
lines changed

cabal.project.release

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,7 +1,7 @@
11
index-state:
22
-- Bump this if you need newer packages from Hackage
3-
-- current date: fs-api-0.4.0.0 and fs-sim-0.4.0.0
4-
, hackage.haskell.org 2025-07-01T00:00:00Z
3+
-- current date: quickcheck-lockstep-0.8.0
4+
, hackage.haskell.org 2025-07-03T13:54:16Z
55

66
packages:
77
.

lsm-tree.cabal

Lines changed: 2 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -893,12 +893,11 @@ test-suite lsm-tree-test
893893
, quickcheck-classes
894894
, quickcheck-dynamic
895895
, quickcheck-instances
896-
, quickcheck-lockstep
896+
, quickcheck-lockstep >=0.8
897897
, random
898898
, safe-wild-cards
899899
, semialign
900900
, split
901-
, stm
902901
, tasty
903902
, tasty-golden
904903
, tasty-hunit
@@ -1208,7 +1207,7 @@ test-suite prototypes-test
12081207
, primitive
12091208
, QuickCheck
12101209
, quickcheck-dynamic
1211-
, quickcheck-lockstep
1210+
, quickcheck-lockstep >=0.8
12121211
, tasty
12131212
, tasty-hunit
12141213
, tasty-quickcheck

test-prototypes/Test/ScheduledMergesQLS.hs

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -383,7 +383,7 @@ deriving stock instance Eq (ModelValue Model a)
383383

384384

385385
runActionIO :: Action (Lockstep Model) a
386-
-> LookUp IO
386+
-> LookUp
387387
-> ReaderT (PrimVar RealWorld TableId) IO a
388388
runActionIO action lookUp = ReaderT $ \tidVar -> do
389389
case action of
@@ -408,7 +408,7 @@ runActionIO action lookUp = ReaderT $ \tidVar -> do
408408
ADump var -> stToIO $ logicalValue (lookUpVar var)
409409
where
410410
lookUpVar :: ModelVar Model a -> a
411-
lookUpVar = realLookupVar (Proxy :: Proxy IO) lookUp
411+
lookUpVar = realLookupVar lookUp
412412

413413
tr :: Tracer (ST RealWorld) Event
414414
tr = nullTracer

test/Test/Database/LSMTree/Internal/Readers.hs

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -416,7 +416,7 @@ instance RunLockstep ReadersState RealMonad where
416416
Pop {} -> OEither . bimap OId (OTuple3 . trimap OId OId OId)
417417
DropWhileKey {} -> OEither . bimap OId (OTuple2 . bimap OId OId)
418418

419-
runIO :: LockstepAction ReadersState a -> LookUp RealMonad -> RealMonad (Realized RealMonad a)
419+
runIO :: LockstepAction ReadersState a -> LookUp -> RealMonad a
420420
runIO act lu = case act of
421421
New offset srcDatas -> ReaderT $ \(hfs, hbio) -> do
422422
RealState numRuns mCtx <- get

0 commit comments

Comments
 (0)