Skip to content

Commit

Permalink
Update haddock on assertEq to specify the expected and actual value o…
Browse files Browse the repository at this point in the history
…rdering
  • Loading branch information
jkeuhlen authored and jezen committed Mar 29, 2024
1 parent 92e5374 commit 24457b7
Showing 1 changed file with 6 additions and 2 deletions.
8 changes: 6 additions & 2 deletions yesod-test/Yesod/Test.hs
Original file line number Diff line number Diff line change
Expand Up @@ -546,7 +546,11 @@ htmlQuery = htmlQuery' yedResponse []
-- In case they are not equal, the error message includes the two values.
--
-- @since 1.5.2
assertEq :: (HasCallStack, Eq a, Show a) => String -> a -> a -> YesodExample site ()
assertEq :: (HasCallStack, Eq a, Show a)
=> String -- ^ The message prefix
-> a -- ^ The expected value
-> a -- ^ The actual value
-> YesodExample site ()
assertEq m a b =
liftIO $ HUnit.assertEqual msg a b
where msg = "Assertion: " ++ m ++ "\n"
Expand Down Expand Up @@ -857,7 +861,7 @@ addGetParam name value = modifySIO $ \rbd -> rbd
-- parameter and no other parameters.
--
-- @since 1.6.16
--
--
-- ==== __Examples__
--
-- > {-# LANGUAGE OverloadedStrings #-}
Expand Down

0 comments on commit 24457b7

Please sign in to comment.