From 9354282ee57ddec8d3220223df79d6d259c63f6f Mon Sep 17 00:00:00 2001 From: Michael Walker Date: Tue, 7 Nov 2017 14:21:23 +0000 Subject: [PATCH] Fix some incorrect "@since" haddock comments --- dejafu/CHANGELOG.markdown | 11 +++++++++++ dejafu/Test/DejaFu/Common.hs | 10 +++++----- 2 files changed, 16 insertions(+), 5 deletions(-) diff --git a/dejafu/CHANGELOG.markdown b/dejafu/CHANGELOG.markdown index 80e8f81..ee0ae90 100644 --- a/dejafu/CHANGELOG.markdown +++ b/dejafu/CHANGELOG.markdown @@ -7,6 +7,17 @@ This project is versioned according to the [Package Versioning Policy](https://p *de facto* standard Haskell versioning scheme. +unreleased +---------- + +### Test.DejaFu.Common + +- Fix some incorrect "@since" haddock comments. + + +--------------------------------------------------------------------------------------------------- + + 0.9.0.3 ------- diff --git a/dejafu/Test/DejaFu/Common.hs b/dejafu/Test/DejaFu/Common.hs index 8c60853..4cee38e 100644 --- a/dejafu/Test/DejaFu/Common.hs +++ b/dejafu/Test/DejaFu/Common.hs @@ -933,21 +933,21 @@ showFail IllegalSubconcurrency = "[illegal-subconcurrency]" -- | Check if a failure is an @InternalError@. -- --- @since undefined +-- @since 0.9.0.0 isInternalError :: Failure -> Bool isInternalError InternalError = True isInternalError _ = False -- | Check if a failure is an @Abort@. -- --- @since undefined +-- @since 0.9.0.0 isAbort :: Failure -> Bool isAbort Abort = True isAbort _ = False -- | Check if a failure is a @Deadlock@ or an @STMDeadlock@. -- --- @since undefined +-- @since 0.9.0.0 isDeadlock :: Failure -> Bool isDeadlock Deadlock = True isDeadlock STMDeadlock = True @@ -955,14 +955,14 @@ isDeadlock _ = False -- | Check if a failure is an @UncaughtException@ -- --- @since undefined +-- @since 0.9.0.0 isUncaughtException :: Failure -> Bool isUncaughtException (UncaughtException _) = True isUncaughtException _ = False -- | Check if a failure is an @IllegalSubconcurrency@ -- --- @since undefined +-- @since 0.9.0.0 isIllegalSubconcurrency :: Failure -> Bool isIllegalSubconcurrency IllegalSubconcurrency = True isIllegalSubconcurrency _ = False