barrucadu/dejafu
1
1
Fork 0
mirror of https://github.com/barrucadu/dejafu.git synced 2024-12-19 11:32:01 +03:00
Code Issues Projects Releases Wiki Activity

Strictify and unpack ID ints for performance

Browse Source 
This makes (==) vanish from the top CPU-using functions in the
profile, nice!
This commit is contained in:
Michael Walker 2017-09-09 20:56:39 +01:00
parent 051d810036
commit 490b772f57
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
dejafu/Test/DejaFu/Common.hs
View File

@ -79,7 +79,7 @@ import qualified Data.Set as S
-- The @Eq@ and @Ord@ instances only consider the int, not the name. -- The @Eq@ and @Ord@ instances only consider the int, not the name.
-- --
-- @since 0.4.0.0 -- @since 0.4.0.0
data ThreadId = ThreadId (Maybe String) Int data ThreadId = ThreadId (Maybe String) {-# UNPACK #-} !Int
-- | Previously this was a derived instance. -- | Previously this was a derived instance.
-- --
@ -103,7 +103,7 @@ instance NFData ThreadId where
-- The @Eq@ and @Ord@ instances only consider the int, not the name. -- The @Eq@ and @Ord@ instances only consider the int, not the name.
-- --
-- @since 0.4.0.0 -- @since 0.4.0.0
data CRefId = CRefId (Maybe String) Int data CRefId = CRefId (Maybe String) {-# UNPACK #-} !Int
-- | Previously this was a derived instance. -- | Previously this was a derived instance.
-- --
@ -127,7 +127,7 @@ instance NFData CRefId where
-- The @Eq@ and @Ord@ instances only consider the int, not the name. -- The @Eq@ and @Ord@ instances only consider the int, not the name.
-- --
-- @since 0.4.0.0 -- @since 0.4.0.0
data MVarId = MVarId (Maybe String) Int data MVarId = MVarId (Maybe String) {-# UNPACK #-} !Int
-- | Previously this was a derived instance. -- | Previously this was a derived instance.
-- --
@ -151,7 +151,7 @@ instance NFData MVarId where
-- The @Eq@ and @Ord@ instances only consider the int, not the name. -- The @Eq@ and @Ord@ instances only consider the int, not the name.
-- --
-- @since 0.4.0.0 -- @since 0.4.0.0
data TVarId = TVarId (Maybe String) Int data TVarId = TVarId (Maybe String) {-# UNPACK #-} !Int
-- | Previously this was a derived instance. -- | Previously this was a derived instance.
-- --