Adapt tests to Postcondition

quickcheck-dynamic/test/Spec/DynamicLogic/Counters.hs

@@ -59,7 +59,7 @@ instance RunModel FailingCounter (ReaderT (IORef Int) IO) where
     ref <- ask
     lift $ atomicModifyIORef' ref (\count -> (succ count, count))
 
-  postcondition (_, FailingCounter{failingCount}) _ _ _ = pure $ failingCount < 4
+  postcondition (_, FailingCounter{failingCount}) _ _ _ = PostBool $ failingCount < 4
 
 -- A generic but simple counter model
 data Counter = Counter Int
@@ -93,5 +93,5 @@ instance RunModel Counter (ReaderT (IORef Int) IO) where
       writeIORef ref 0
       pure n
 
-  postcondition (Counter n, _) Reset _ res = pure $ n == res
-  postcondition _ _ _ _ = pure True
+  postcondition (Counter n, _) Reset _ res = PostBool $ n == res
+  postcondition _ _ _ _ = PostBool True

quickcheck-dynamic/test/Spec/DynamicLogic/RegistryModel.hs

@@ -129,16 +129,14 @@ instance RunModel RegState RegM where
     pure $ Right ()
 
   postcondition (s, _) (WhereIs name) env mtid = do
-    pure $ (env <$> Map.lookup name (regs s)) == mtid
-  postcondition _ _ _ _ = pure True
+    PostBool $ (env <$> Map.lookup name (regs s)) == mtid
+  postcondition _ _ _ _ = PostBool True
 
   postconditionOnFailure (s, _) act@Register{} _ res = do
-    monitorPost $
-      tabulate
-        "Reason for -Register"
-        [why s act]
-    pure $ isLeft res
-  postconditionOnFailure _s _ _ _ = pure True
+    PostMonitor
+      (tabulate "Reason for -Register" [why s act])
+      (PostBool $ isLeft res)
+  postconditionOnFailure _s _ _ _ = PostBool True
 
   monitoring (_s, s') act@(showDictAction -> ShowDict) _ res =
     counterexample (show res ++ " <- " ++ show act ++ "\n  -- State: " ++ show s')