IPv6DB 0.2.0 → 0.2.1
raw patch · 3 files changed
+8/−8 lines, 3 filesdep ~IPv6DBdep ~optparse-applicativePVP ok
version bump matches the API change (PVP)
Dependency ranges changed: IPv6DB, optparse-applicative
API changes (from Hackage documentation)
Files
- IPv6DB.cabal +5/−5
- app/Options.hs +1/−1
- app/Queries.hs +2/−2
IPv6DB.cabal view
@@ -1,12 +1,12 @@ name: IPv6DB-version: 0.2.0+version: 0.2.1 cabal-version: >=1.10 build-type: Simple license: BSD3 license-file: LICENSE copyright: (c) 2017 - Michel Boucey maintainer: michel.boucey@cybervisible.fr-homepage: https://github.com/MichelBoucey/IPv6DB+homepage: http://ipv6db.cybervisible.com synopsis: A RESTful Web Service for IPv6-related data description: IPv6DB is a RESTful microservice using Redis as backend@@ -49,12 +49,12 @@ bytestring >=0.10.6 && <0.11, fast-logger >=2.4.8 && <2.5, IPv6Addr >=1.0.0 && <1.1.0,- IPv6DB >=0.2.0 && <0.3,+ IPv6DB >=0.2.1 && <0.3, hedis >=0.9.4 && <0.10, http-types >=0.9.1 && <0.10, unordered-containers >=0.2.7.2 && <0.2.9, mtl >=2.2.1 && <2.3,- optparse-applicative >=0.12.1.0 && <0.14,+ optparse-applicative >=0.12.1.0 && <0.15, text >=1.2.2 && <1.3, vector >=0.11.0.0 && <0.13, wai >=3.2.1 && <3.3,@@ -75,7 +75,7 @@ aeson >=0.11.2 && <1.3, hspec >=2.1.10 && <2.5, base >=4.8 && <5,- IPv6DB >=0.2.0 && <0.3,+ IPv6DB >=0.2.1 && <0.3, vector >=0.11.0.0 && <0.13, http-client >=0.4.31.2 && <0.6, http-types >=0.9.1 && <0.10
app/Options.hs view
@@ -20,7 +20,7 @@ opts = info (options <**> helper) ( fullDesc <> progDesc "RESTful Web Service for IPv6 related data"- <> header "IPv6DB v0.1.0 APIv1, (c) Michel Boucey 2017" )+ <> header "IPv6DB v0.2.0 APIv1, (c) Michel Boucey 2017" ) options :: Parser Options options =
app/Queries.hs view
@@ -149,7 +149,7 @@ -> Maybe Resource toResource list addr mi bs = decode (BSL.fromStrict bs) >>= \src ->- Just $+ Just Resource { list = list , address = IPv6Addr addr@@ -172,7 +172,6 @@ A.Error _ -> Nothing _ -> Nothing -listAddressSeparator :: T.Text getByAddresses :: RedisCtx m f => T.Text -> Addresses@@ -213,5 +212,6 @@ toKey list addr = encodeUtf8 (list <> listAddressSeparator <> addr) +listAddressSeparator :: T.Text listAddressSeparator = "/"