[Git][ghc/ghc][wip/T22706] base: Export GHC.Conc.Sync.fromThreadId

[Ben Gamari (@bgamari)]

Ben Gamari pushed to branch wip/T22706 at Glasgow Haskell Compiler / GHC


Commits:
2dfb34dd by Ben Gamari at 2023-03-23T22:13:49-04:00
base: Export GHC.Conc.Sync.fromThreadId

Closes #22706.

- - - - -


2 changed files:

- libraries/base/GHC/Conc/Sync.hs
- libraries/base/changelog.md


Changes:

=====================================
libraries/base/GHC/Conc/Sync.hs
=====================================
@@ -33,6 +33,7 @@ module GHC.Conc.Sync
         (
         -- * Threads
           ThreadId(..)
+        , fromThreadId
         , showThreadId
         , myThreadId
         , killThread
@@ -152,11 +153,18 @@ This misfeature will hopefully be corrected at a later date.
 
 -}
 
+-- | Map a thread to an integer identifier which is unique within the
+-- current process.
+--
+-- @since 4.19.0.0
+fromThreadId :: ThreadId -> Word64
+fromThreadId = fromIntegral . getThreadId
+
 -- | @since 4.2.0.0
 instance Show ThreadId where
    showsPrec d t = showParen (d >= 11) $
         showString "ThreadId " .
-        showsPrec d (getThreadId (id2TSO t))
+        showsPrec d (fromThreadId t)
 
 showThreadId :: ThreadId -> String
 showThreadId = show


=====================================
libraries/base/changelog.md
=====================================
@@ -1,6 +1,8 @@
 # Changelog for [`base` package](http://hackage.haskell.org/package/base)
 
 ## 4.19.0.0 *TBA*
+
+  * `GHC.Conc.Sync` now exports `fromThreadId :: ThreadId -> Word64`, which maps a thread to a per-process-unique identifier ([CLC proposal #117](https://github.com/haskell/core-libraries-committee/issues/117))
   * Add `Data.List.!?` ([CLC proposal #110](https://github.com/haskell/core-libraries-committee/issues/110))
   * `maximumBy`/`minimumBy` are now marked as `INLINE` improving performance for unpackable
     types significantly.



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/2dfb34dd7d1cdd1c1c362a3efe57473d27856001

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/2dfb34dd7d1cdd1c1c362a3efe57473d27856001
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20230323/2d5a504e/attachment-0001.html>