currency-codes 1.0.0.3 → 2.0.0.0

raw patch · 3 files changed

+8/−18 lines, 3 filesdep −lensdep −swagger2dep ~bsonPVP ok

version bump matches the API change (PVP)

Dependencies removed: lens, swagger2

Dependency ranges changed: bson

API changes (from Hackage documentation)

Files

• CHANGELOG.md +5/−0
• currency-codes.cabal +3/−5
• src/Data/Currency.hs +0/−13

@@ -1,5 +1,10 @@ # Changelog +## v2.0.0.0 (2017-09-11)++Remove Swagger instances. It would be better to push them upstream to the swagger2 repository.++ ## v1.0.0.0 (2017-08-29)    - Provide 2 types `Currency` and `Alpha`

@@ -1,5 +1,5 @@ name:                currency-codes-version:             1.0.0.3+version:             2.0.0.0 synopsis:            ISO-4217 Currency Codes description:         ISO-4217 Currency Codes license:             MIT@@ -9,7 +9,7 @@ copyright:           (c) 2017 Chordify category:            Data build-type:          Simple-homepage:            https://gitlab.com/chordify/currency-codes+homepage:            https://github.com/chordify/currency-codes bug-reports:         https://github.com/chordify/currency-codes/issues extra-source-files:  README.md                      CHANGELOG.md@@ -37,10 +37,8 @@                      , TypeOperators   build-depends:       base >= 4 && < 5                      , aeson >= 0.7.0.0-                     , bson >= 0.2.0.0-                     , lens >= 4.0.0+                     , bson >= 0.2.0                      , random >= 1.0.0.0                      , safe >= 0.2-                     , swagger2 >= 2.0.0.0                      , text >= 1.0.0.0   exposed-modules:     Data.Currency

@@ -4,16 +4,12 @@  import           Prelude       hiding (Ordering (..)) -import           Control.Lens  ((&), (?~)) import           Control.Monad ((>=>)) import           Data.Aeson    as Aeson import           Data.Aeson    (FromJSON (..), ToJSON (..)) import           Data.Bson     (Val (..), (=:)) import qualified Data.Bson     as Bson import           Data.Data     (Data)-import           Data.Proxy    (Proxy (..))-import           Data.Swagger  (NamedSchema (..), ToSchema (..))-import qualified Data.Swagger  as Swagger import           Data.Text     (Text) import           Data.Typeable (Typeable) import           GHC.Generics  (Generic)@@ -33,8 +29,6 @@  instance ToJSON   Currency where toJSON             = Aeson.genericToJSON Aeson.defaultOptions -instance ToSchema Currency where declareNamedSchema = Swagger.genericDeclareNamedSchema Swagger.defaultSchemaOptions- instance Val Currency where   val Currency{..} = Bson.Doc     [ "alpha"  =: alpha@@ -250,13 +244,6 @@  instance Val      Alpha where val       = val . show                               cast'     = cast' >=> Safe.readMay--instance ToSchema Alpha where-  declareNamedSchema _ = do-    NamedSchema name schema <- declareNamedSchema (Proxy :: Proxy String)-    return $ NamedSchema name $ schema-      & Swagger.format  ?~ "iso4217-alpha"-      & Swagger.example ?~ Aeson.toJSON EUR  instance Random Alpha where   random g =