siren-json 0.1.3.1 → 0.2.0.0
raw patch · 3 files changed
+26/−17 lines, 3 filesdep −case-insensitivedep ~QuickCheckdep ~aesondep ~base
Dependencies removed: case-insensitive
Dependency ranges changed: QuickCheck, aeson, base, hspec, http-types, network-arbitrary, network-uri-json
Files
- ChangeLog.md +10/−0
- siren-json.cabal +13/−14
- src/Data/SirenJSON.hs +3/−3
ChangeLog.md view
@@ -1,5 +1,15 @@ # Revision history for siren-json +## 0.2.0.0 -- 2018-12-28++* Update base, network-uri-json, network-arbitrary, http-types, hspec, aeson,+ QuickCheck, hspec-discover+* Use LambdaCase in InputType parsing.+* Update travis configuration.+* Add envrc to autoload environment.+* remove unused dependencies+* automate hackage publishing with cloudbuild+ ## 0.1.3.1 -- 2018-01-20 * Bump network-arbitrary dependency
siren-json.cabal view
@@ -1,5 +1,5 @@ name: siren-json-version: 0.1.3.1+version: 0.2.0.0 synopsis: Siren Tools for Haskell description: @@ -46,14 +46,14 @@ , External.Network.HTTP.Types.Method.JSON build-depends:- aeson >= 0.8 && < 1.3- , base >= 4.6 && < 4.12+ aeson >= 0.8 && < 1.5+ , base >= 4.6 && < 4.13 , bytestring == 0.10.* , containers == 0.5.* , http-media >= 0.6 && < 0.8- , http-types == 0.9.*+ , http-types >= 0.9 && < 0.13 , network-uri == 2.6.*- , network-uri-json == 0.1.*+ , network-uri-json >= 0.1 && < 0.3 , text == 1.2.* , unordered-containers == 0.2.* @@ -82,21 +82,20 @@ , External.Network.HTTP.Types.Method.JSONSpec build-tool-depends:- hspec-discover:hspec-discover == 2.4.*+ hspec-discover:hspec-discover >= 2.4 && < 2.7 build-depends:- aeson >= 0.8 && < 1.3- , base >= 4.6 && < 4.12+ aeson >= 0.8 && < 1.5+ , base >= 4.6 && < 4.13 , bytestring == 0.10.*- , case-insensitive == 1.2.* , containers == 0.5.*- , hspec == 2.4.*+ , hspec >= 2.4 && < 2.7 , http-media >= 0.6 && < 0.8- , http-types == 0.9.*- , network-arbitrary == 0.3.*+ , http-types >= 0.9 && < 0.13+ , network-arbitrary >= 0.3 && < 0.5 , network-uri == 2.6.*- , network-uri-json == 0.1.*- , QuickCheck >= 2.9 && < 2.11+ , network-uri-json >= 0.1 && < 0.3+ , QuickCheck >= 2.9 && < 2.13 , quickcheck-instances == 0.3.* , test-invariant == 0.4.* , text == 1.2.*
src/Data/SirenJSON.hs view
@@ -1,3 +1,4 @@+{-# LANGUAGE LambdaCase #-} {-# LANGUAGE OverloadedStrings #-} {-# LANGUAGE RecordWildCards #-} @@ -208,8 +209,7 @@ deriving (Eq, Show) instance FromJSON InputType where- parseJSON = withText "InputType" $ \ v ->- case v of+ parseJSON = withText "InputType" $ \case "hidden" -> return Hidden "text" -> return Text "search" -> return Search@@ -230,7 +230,7 @@ "radio" -> return Radio "file" -> return File _ -> fail "invalid InputType"- + instance ToJSON InputType where toJSON Hidden = String "hidden" toJSON Text = String "text"