From f1892272ab54c256ae86f647d130b59cbdae6288 Mon Sep 17 00:00:00 2001 From: Gabor Greif Date: Wed, 16 Jan 2019 10:33:05 +0100 Subject: reduce line noise --- libraries/base/GHC/Event/Internal.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/libraries/base/GHC/Event/Internal.hs b/libraries/base/GHC/Event/Internal.hs index 57cb293976..afe880b8c2 100644 --- a/libraries/base/GHC/Event/Internal.hs +++ b/libraries/base/GHC/Event/Internal.hs @@ -58,7 +58,7 @@ evtClose :: Event evtClose = Event 4 eventIs :: Event -> Event -> Bool -eventIs (Event a) (Event b) = a .&. b /= 0 +Event a `eventIs` Event b = a .&. b /= 0 -- | @since 4.4.0.0 instance Show Event where -- cgit v1.2.1