Fix Windows build following D2588
authorRyan Scott <ryan.gl.scott@gmail.com>
Sat, 15 Oct 2016 02:28:29 +0000 (22:28 -0400)
committerRyan Scott <ryan.gl.scott@gmail.com>
Sat, 15 Oct 2016 02:28:29 +0000 (22:28 -0400)
Commit 8c6a3d68c0301bb985aa2a462936bbcf7584ae9c inadvertently broke the build
on Windows. This restores Windows compatibility.

libraries/base/Data/Semigroup.hs

index 2cb1bb7..1c3d9da 100644 (file)
@@ -1,3 +1,4 @@
+{-# LANGUAGE CPP                        #-}
 {-# LANGUAGE DefaultSignatures          #-}
 {-# LANGUAGE DeriveDataTypeable         #-}
 {-# LANGUAGE DeriveGeneric              #-}
@@ -83,7 +84,9 @@ import           Data.Monoid         (All (..), Any (..), Dual (..), Endo (..),
 import           Data.Monoid         (Alt (..))
 import qualified Data.Monoid         as Monoid
 import           Data.Void
-import           GHC.Event           (Event, Lifetime (..))
+#ifndef mingw32_HOST_OS
+import           GHC.Event           (Event, Lifetime)
+#endif
 import           GHC.Generics
 
 infixr 6 <>
@@ -711,6 +714,7 @@ instance Semigroup (Proxy s) where
 instance Semigroup a => Semigroup (IO a) where
     (<>) = liftA2 (<>)
 
+#ifndef mingw32_HOST_OS
 -- | @since 4.10.0.0
 instance Semigroup Event where
     (<>) = mappend
@@ -720,3 +724,4 @@ instance Semigroup Event where
 instance Semigroup Lifetime where
     (<>) = mappend
     stimes = stimesMonoid
+#endif