import Data.Data ( Data )
import Data.Typeable ( Typeable )
import Data.Monoid ( Monoid(..) )
+import Data.Semigroup ( Semigroup( (<>) ) )
import Paths_mailbox_count ( getSysconfDir )
import System.Directory ( getHomeDirectory )
import System.FilePath ( (</>) )
Nothing
Nothing
+instance Semigroup OptionalConfiguration where
-- | Combine @cfg1@ and @cfg2@, giving precedence to @cfg2@.
- cfg1 `mappend` cfg2 =
+ cfg1 <> cfg2 =
OptionalConfiguration
(merge_maybes (database cfg1) (database cfg2))
(merge_maybes (detail cfg1) (detail cfg2))