@@ -80,7 +80,7 @@ import Data.Functor.Sum (Sum(..))
8080import Data.Int (Int16, Int32, Int64, Int8)
8181import Data.List (intersperse)
8282import Data.List.NonEmpty (NonEmpty(..))
83−import Data.Monoid ((<>))
83+import Data.Semigroup ((<>))
8484import Data.Proxy (Proxy(..))
8585import Data.Ratio (Ratio, denominator, numerator)
8686import Data.Scientific (Scientific)
@@ -860,7 +860,7 @@ instance ( IsRecord a isRecord
860860 ) => TaggedObject enc arity (C1 c a)
861861 where
862862 taggedObject opts targs tagFieldName contentsFieldName =
863− fromPairs . (tag <>) . contents
863+ fromPairs . mappend tag . contents
864864 where
865865 tag = tagFieldName `pair`
866866 (fromString (constructorTagModifier opts (conName (undefined :: t c a p)))
@@ -1003,7 +1003,7 @@ instance ( Monoid pairs
10031003 ) => RecordToPairs enc pairs arity (a :*: b)
10041004 where
10051005 recordToPairs opts (targs :: ToArgs enc arity p) (a :*: b) =
1006− pairsOf a <> pairsOf b
1006+ pairsOf a `mappend` pairsOf b
10071007 where
10081008 pairsOf :: (RecordToPairs enc pairs arity f) => f p -> pairs
10091009 pairsOf = recordToPairs opts targs