@@ -50,6 +50,7 @@ import qualified Data.ByteString.Lazy.Char8 as LBS8
5050import qualified Data.HashMap.Strict as HM
5151import Data.Int
5252import qualified Data.Scientific as Scientific
53+import Data.Semigroup as Semigroup
5354import Data.String (IsString)
5455import qualified Data.Text as T
5556import qualified Data.Text.Encoding as TE
@@ -197,7 +198,7 @@ httpPort = URIBS.Port 8070
197198-- | A reasonable retry policy: exponential backoff with 25ms base
198199-- delay up to 5 retries, for a total cumulative delay of 775ms.
199200defaultRetryPolicy :: (Monad m) => Retry.RetryPolicyM m
200−defaultRetryPolicy = Retry.exponentialBackoff 25000 <> Retry.limitRetries 5
201+defaultRetryPolicy = Retry.exponentialBackoff 25000 `mappend` Retry.limitRetries 5
201202
202203-------------------------------------------------------------------------------
203204mkLogzIOScribe
@@ -544,7 +545,7 @@ data BulkBuffer = BulkBuffer
544545 }
545546
546547
547−instance Semigroup BulkBuffer where
548+instance Semigroup.Semigroup BulkBuffer where
548549 (BulkBuffer bytesUsedA bufferA itemCountA) <>
549550 (BulkBuffer bytesUsedB bufferB itemCountB) = BulkBuffer
550551 (bytesUsedA + bytesUsedB)