[commit: ghc] master: base: Export GHC.Event(.Internal).Lifetime (9a0c179)
git at git.haskell.org
git at git.haskell.org
Sat Apr 25 07:49:24 UTC 2015
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/9a0c17950fdfd0c89c672da9d8b25a419f66c1f8/ghc
>---------------------------------------------------------------
commit 9a0c17950fdfd0c89c672da9d8b25a419f66c1f8
Author: Ben Gamari <ben at smart-cactus.org>
Date: Sat Apr 25 09:13:49 2015 +0200
base: Export GHC.Event(.Internal).Lifetime
This was an unfortunate oversight in the original event manager rework
patch. Fixes #10308
Differential Revision: https://phabricator.haskell.org/D845
>---------------------------------------------------------------
9a0c17950fdfd0c89c672da9d8b25a419f66c1f8
libraries/base/GHC/Event.hs | 1 +
libraries/base/GHC/Event/Internal.hs | 2 ++
libraries/base/changelog.md | 2 ++
3 files changed, 5 insertions(+)
diff --git a/libraries/base/GHC/Event.hs b/libraries/base/GHC/Event.hs
index 436914c..9f1d3df 100644
--- a/libraries/base/GHC/Event.hs
+++ b/libraries/base/GHC/Event.hs
@@ -25,6 +25,7 @@ module GHC.Event
, evtWrite
, IOCallback
, FdKey(keyFd)
+ , Lifetime(..)
, registerFd
, unregisterFd
, unregisterFd_
diff --git a/libraries/base/GHC/Event/Internal.hs b/libraries/base/GHC/Event/Internal.hs
index c18bd7f..3b75c8b 100644
--- a/libraries/base/GHC/Event/Internal.hs
+++ b/libraries/base/GHC/Event/Internal.hs
@@ -84,6 +84,8 @@ evtConcat = foldl' evtCombine evtNothing
{-# INLINE evtConcat #-}
-- | The lifetime of a registration.
+--
+-- @since 4.8.1.0
data Lifetime = OneShot | MultiShot
deriving (Show, Eq)
diff --git a/libraries/base/changelog.md b/libraries/base/changelog.md
index 813ac6b..ad3a74d 100644
--- a/libraries/base/changelog.md
+++ b/libraries/base/changelog.md
@@ -39,6 +39,8 @@
* Bundled with GHC 7.10.2
+ * `Lifetime` is now exported from `GHC.Event`
+
## 4.8.0.0 *Mar 2015*
* Bundled with GHC 7.10.1
More information about the ghc-commits
mailing list