From 39714ff1c3cce6d65fa66bacc9112de4248e94a0 Mon Sep 17 00:00:00 2001 From: George Thomas Date: Tue, 6 Jan 2026 23:36:10 +0000 Subject: [PATCH] Rename some type parameters --- haskell/Pre.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/haskell/Pre.hs b/haskell/Pre.hs index 230aaeb..baecc7f 100644 --- a/haskell/Pre.hs +++ b/haskell/Pre.hs @@ -363,9 +363,9 @@ runTests r0 (TestTree name tc ts) = t1 <- liftIO getCurrentTime pure (rf, diffUTCTime t1 t0) -assertEqual :: (Eq p, MonadFail f) => p -> p -> f () +assertEqual :: (Eq p, MonadFail m) => p -> p -> m () assertEqual expected actual = assert "not equal" (expected == actual) -assert :: (MonadFail f) => String -> Bool -> f () +assert :: (MonadFail m) => String -> Bool -> m () assert s b = if b then pure () else fail s golden :: FilePath -> Text -> IO () golden p x = do