@@ -37,7 +37,7 @@ import Data.Conduit
3737import Data.Data
3838import Data.DList (DList)
3939import Data.Foldable (foldMap, foldl')
40−import Data.Monoid
40+import Data.Semigroup
4141import Data.String
4242import Data.Text (Text)
4343import Data.Text.Lazy.Builder (Builder)
@@ -310,7 +310,10 @@ data Request = Request
310310
311311instance Monoid Request where
312312 mempty = Request mempty mempty mempty mempty
313− mappend a b = Request
313+ mappend = (<>)
314+
315+instance Semigroup Request where
316+ a <> b = Request
314317 (_rqPath a <> "/" <> _rqPath b)
315318 (_rqQuery a <> _rqQuery b)
316319 (_rqHeaders a <> _rqHeaders b)