[commit: ghc] wip/T14677: No need to inline nullary functions [ci skip] (e6eb60f)
git at git.haskell.org
git at git.haskell.org
Sun Mar 31 15:08:18 UTC 2019
Repository : ssh://git@git.haskell.org/ghc
On branch : wip/T14677
Link : http://ghc.haskell.org/trac/ghc/changeset/e6eb60f1fd3f011e6dc46fd552cf213998ad38cb/ghc
>---------------------------------------------------------------
commit e6eb60f1fd3f011e6dc46fd552cf213998ad38cb
Author: Gabor Greif <ggreif at gmail.com>
Date: Tue Jan 8 17:06:18 2019 +0100
No need to inline nullary functions [ci skip]
>---------------------------------------------------------------
e6eb60f1fd3f011e6dc46fd552cf213998ad38cb
libraries/base/GHC/Event/Internal.hs | 4 ----
1 file changed, 4 deletions(-)
diff --git a/libraries/base/GHC/Event/Internal.hs b/libraries/base/GHC/Event/Internal.hs
index 5778c6f..57cb293 100644
--- a/libraries/base/GHC/Event/Internal.hs
+++ b/libraries/base/GHC/Event/Internal.hs
@@ -44,22 +44,18 @@ newtype Event = Event Int
evtNothing :: Event
evtNothing = Event 0
-{-# INLINE evtNothing #-}
-- | Data is available to be read.
evtRead :: Event
evtRead = Event 1
-{-# INLINE evtRead #-}
-- | The file descriptor is ready to accept a write.
evtWrite :: Event
evtWrite = Event 2
-{-# INLINE evtWrite #-}
-- | Another thread closed the file descriptor.
evtClose :: Event
evtClose = Event 4
-{-# INLINE evtClose #-}
eventIs :: Event -> Event -> Bool
eventIs (Event a) (Event b) = a .&. b /= 0
More information about the ghc-commits
mailing list