1c8ee99b46
https://prime.haskell.org/wiki/Libraries/Proposals/SemigroupMonoid I am not happy with the fragile pile of CPP boilerplate required to support ghc back to 7.0, which git-annex still targets for both the android build and the standalone build targeting old linux kernels. It makes me unlikely to want to use Semigroup more in git-annex, because the benefit of the abstraction is swamped by the ugliness. I actually considered ripping out all the Semigroup instances, but some are needed to use optparse-applicative. The problem, I think, is they made this transaction on too fast a timeline. (Although ironically, work on it started in 2015 or earlier!) In particular, Debian oldstable is not out of security support, and it's not possible to follow the simpler workarounds documented on the wiki and have it build on oldstable (because the semigroups package in it is too old). I have only tested this build with ghc 8.2.2, not the newer and older versions that branches of the CPP support. So there could be typoes, we'll see. This commit was sponsored by Brock Spratlen on Patreon.
46 lines
1 KiB
Haskell
46 lines
1 KiB
Haskell
{- git-annex DesktopNotify type
|
|
-
|
|
- Copyright 2014 Joey Hess <id@joeyh.name>
|
|
-
|
|
- Licensed under the GNU GPL version 3 or higher.
|
|
-}
|
|
|
|
{-# LANGUAGE CPP #-}
|
|
|
|
module Types.DesktopNotify where
|
|
|
|
import Data.Monoid
|
|
#if MIN_VERSION_base(4,9,0)
|
|
import qualified Data.Semigroup as Sem
|
|
#endif
|
|
import Prelude
|
|
|
|
data DesktopNotify = DesktopNotify
|
|
{ notifyStart :: Bool
|
|
, notifyFinish :: Bool
|
|
}
|
|
deriving (Show)
|
|
|
|
appendDesktopNotify :: DesktopNotify -> DesktopNotify -> DesktopNotify
|
|
appendDesktopNotify (DesktopNotify s1 f1) (DesktopNotify s2 f2) =
|
|
DesktopNotify (s1 || s2) (f1 || f2)
|
|
|
|
#if MIN_VERSION_base(4,9,0)
|
|
instance Sem.Semigroup DesktopNotify where
|
|
(<>) = appendDesktopNotify
|
|
#endif
|
|
|
|
instance Monoid DesktopNotify where
|
|
mempty = DesktopNotify False False
|
|
#if MIN_VERSION_base(4,11,0)
|
|
#elif MIN_VERSION_base(4,9,0)
|
|
mappend = (Sem.<>)
|
|
#else
|
|
mappend = appendDesktopNotify
|
|
#endif
|
|
|
|
mkNotifyStart :: DesktopNotify
|
|
mkNotifyStart = DesktopNotify True False
|
|
|
|
mkNotifyFinish :: DesktopNotify
|
|
mkNotifyFinish = DesktopNotify False True
|