@@ -1,3 +1,4 @@
1+{-# LANGUAGE BangPatterns #-}
12{-# LANGUAGE OverloadedStrings #-}
23{-# LANGUAGE RankNTypes #-}
34-- | Creates a scribe as a Custom Forwarder for Datadog that sends log
@@ -24,6 +25,7 @@ import qualified Control.Retry as Retry
2425import qualified Data.Aeson as A
2526import qualified Data.Binary.Builder as BB
2627import qualified Data.ByteString.Lazy as BSL
28+import Data.Monoid as Monoid
2729import qualified Data.Pool as Pool
2830import Data.Text (Text)
2931import qualified Data.Text.Encoding as T
@@ -160,7 +162,7 @@ pushPool retryPolicy pool token verb item =
160162 Left _ -> True
161163 Right _ -> False
162164 where
163− payloadBuilder = A.fromEncoding (encodeDatadog verb item) <> "\n"
165+ payloadBuilder = A.fromEncoding (encodeDatadog verb item) Monoid.<> "\n"
164166 messageBuilder = case token of
165167 --TODO: lots of conversion going on here. could use a bench
166168 Nothing -> payloadBuilder