summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat (limited to 'net-mail/mailbox-count/files/mailbox-count-0.0.2-ghc84.patch')
-rw-r--r--net-mail/mailbox-count/files/mailbox-count-0.0.2-ghc84.patch24
1 files changed, 24 insertions, 0 deletions
diff --git a/net-mail/mailbox-count/files/mailbox-count-0.0.2-ghc84.patch b/net-mail/mailbox-count/files/mailbox-count-0.0.2-ghc84.patch
new file mode 100644
index 00000000000..5257a10a3ac
--- /dev/null
+++ b/net-mail/mailbox-count/files/mailbox-count-0.0.2-ghc84.patch
@@ -0,0 +1,24 @@
+--- a/src/OptionalConfiguration.hs
++++ b/src/OptionalConfiguration.hs
+@@ -27,3 +27,3 @@ import System.FilePath ( (</>) )
+ import System.IO.Error ( catchIOError )
+-
++import qualified Data.Semigroup as S
+
+@@ -65,2 +65,16 @@ merge_maybes (Just _) (Just y) = Just y
+ --
++
++instance S.Semigroup OptionalConfiguration where
++ -- | Combine @cfg1@ and @cfg2@, giving precedence to @cfg2@.
++ cfg1 <> cfg2 =
++ OptionalConfiguration
++ (merge_maybes (database cfg1) (database cfg2))
++ (merge_maybes (detail cfg1) (detail cfg2))
++ (merge_maybes (detail_query cfg1) (detail_query cfg2))
++ (merge_maybes (host cfg1) (host cfg2))
++ (merge_maybes (password cfg1) (password cfg2))
++ (merge_maybes (port cfg1) (port cfg2))
++ (merge_maybes (summary_query cfg1) (summary_query cfg2))
++ (merge_maybes (username cfg1) (username cfg2))
++
+ instance Monoid OptionalConfiguration where