f48d4be · typeable/http-api-data

git.iko.soy/typeable/http-api-data

on master help sign in

Add Semigroup Form instance

f48d4beRyan Scott9 years ago

http-api-data.cabal+3−1

@@ -49,9 +49,11 @@ library

49 , text >= 1.1.1.3 && < 1.3

50 , time >= 1.4.2 && < 1.9

51 , time-locale-compat >= 0.1.1.0 && < 0.2

52− , unordered-containers >= 0.2.5.0 && < 0.3

52+ , unordered-containers >= 0.2.6.0 && < 0.3

53 , uri-bytestring >= 0.1.7 && < 0.4

54 , uuid-types >= 1.0.2 && <1.1

55+ if !impl(ghc >= 8.0)

56+ build-depends: semigroups >= 0.16 && < 0.19

55 if flag(use-text-show)

57 if flag(use-text-show)

56 cpp-options: -DUSE_TEXT_SHOW

58 cpp-options: -DUSE_TEXT_SHOW

57 build-depends: text-show >= 2

59 build-depends: text-show >= 2

src/Web/Internal/FormUrlEncoded.hs+2−1

@@ -39,6 +39,7 @@ import Data.List (intersperse, sortBy)

39import Data.Map (Map)

40import qualified Data.Map as Map

41import Data.Monoid

42+import qualified Data.Semigroup as Semi

42import Data.Ord (comparing)

43import Data.Ord (comparing)

44import Data.Text (Text)

45import Data.Text (Text)

@@ -183,7 +184,7 @@ instance FromFormKey Natural where parseFormKey = parseQueryParam

183--

184--

184-- 'Form' can be URL-encoded with 'urlEncodeForm' and URL-decoded with 'urlDecodeForm'.

185-- 'Form' can be URL-encoded with 'urlEncodeForm' and URL-decoded with 'urlDecodeForm'.

185newtype Form = Form { unForm :: HashMap Text [Text] }

186newtype Form = Form { unForm :: HashMap Text [Text] }

186− deriving (Eq, Read, Generic, Monoid)

187+ deriving (Eq, Read, Generic, Semi.Semigroup, Monoid)

187

188

188instance Show Form where

189instance Show Form where

189 showsPrec d form = showParen (d > 10) $

190 showsPrec d form = showParen (d > 10) $