Commit e39589e2 authored by Ryan Scott's avatar Ryan Scott
Browse files

Fix Windows build following D2588

Commit 8c6a3d68 inadvertently broke the build
on Windows. This restores Windows compatibility.
parent 0d9524a8
{-# 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
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment