Add Semigroup Form instance

Author: RyanGlScott

http-api-data.cabal

@@ -49,9 +49,11 @@ library
  , text >= 1.1.1.3 && < 1.3
  , time >= 1.4.2 && < 1.9
  , time-locale-compat >= 0.1.1.0 && < 0.2
- , unordered-containers >= 0.2.5.0 && < 0.3
+ , unordered-containers >= 0.2.6.0 && < 0.3
  , uri-bytestring >= 0.1.7 && < 0.4
  , uuid-types >= 1.0.2 && <1.1
+ if !impl(ghc >= 8.0)
+ build-depends: semigroups >= 0.16 && < 0.19
  if flag(use-text-show)
  cpp-options: -DUSE_TEXT_SHOW
  build-depends: text-show >= 2

src/Web/Internal/FormUrlEncoded.hs

@@ -39,6 +39,7 @@ import Data.List (intersperse, sortBy)
 import Data.Map (Map)
 import qualified Data.Map as Map
 import Data.Monoid
+import qualified Data.Semigroup as Semi
 import Data.Ord (comparing)
 
 import Data.Text (Text)
@@ -183,7 +184,7 @@ instance FromFormKey Natural where parseFormKey = parseQueryParam
 --
 -- 'Form' can be URL-encoded with 'urlEncodeForm' and URL-decoded with 'urlDecodeForm'.
 newtype Form = Form { unForm :: HashMap Text [Text] }
- deriving (Eq, Read, Generic, Monoid)
+ deriving (Eq, Read, Generic, Semi.Semigroup, Monoid)
 
 instance Show Form where
  showsPrec d form = showParen (d > 10) $