fedora-packages 0.0.2 → 0.0.3

raw patch · 3 files changed

+23/−15 lines, 3 filesdep ~basedep ~hspec

Dependency ranges changed: base, hspec

Files

• fedora-packages.cabal +4/−4
• src/Fedora/Packages/API.hs +8/−0
• src/Fedora/Packages/Bugs.hs +11/−11

@@ -1,5 +1,5 @@ name:                fedora-packages-version:             0.0.2+version:             0.0.3 synopsis:            Haskell interface to the Fedora Packages webapp API. description:         Provides access to the (<https://apps.fedoraproject.org/packages/ Fedora Packages>) API. homepage:            https://github.com/CodeBlock/fedora-packages-hs@@ -23,7 +23,7 @@                      , Fedora.Packages.Search    build-depends:       aeson >= 0.6-                     , base >=4.6 && <4.7+                     , base >=4.6 && <4.8                      , bytestring >= 0.10                      , containers >= 0.5                      , http-streams >= 0.7@@ -43,7 +43,7 @@   ghc-options:         -Wall -threaded -rtsopts -with-rtsopts=-N   default-language:    Haskell2010   build-depends:       aeson >= 0.6-                     , base >=4.6 && <4.7+                     , base >=4.6 && <4.8                      , bytestring >= 0.10                      , containers >= 0.5                      , http-streams >= 0.7@@ -52,7 +52,7 @@                      , lens >= 4 && < 5                      , text >= 0.11                      -- And of course...-                     , hspec ==1.8.*+                     , hspec >= 1.8 && < 2  test-suite hlint   hs-source-dirs:      tests

@@ -18,6 +18,7 @@     -- * Requests   , Query (..)   , apiGet+  , defaultQueryPagination   ) where  import Fedora.Packages.Config@@ -88,3 +89,10 @@                                  , "rows_per_page" .= r                                  , "start_row" .= sr                                  ]++-- | Given something searchable, return a 'Query' with default values for JSON+-- fields "rows_per_page" and "start_row".+--+-- The default values (respectively) are 20 and 0.+defaultQueryPagination :: a -> Query a+defaultQueryPagination a = Query a 20 0

@@ -38,17 +38,17 @@   | EL7   | EL6   | EL5-  deriving (Eq, Show)+  deriving (Eq) -versionToText :: Version -> T.Text-versionToText AllVersions = ""-versionToText Rawhide     = "rawhide"-versionToText F20         = "20"-versionToText F19         = "19"-versionToText F18         = "18"-versionToText EL7         = "7"-versionToText EL6         = "6"-versionToText EL5         = "5"+instance Show Version where+  show AllVersions = ""+  show Rawhide     = "rawhide"+  show F20         = "20"+  show F19         = "19"+  show F18         = "18"+  show EL7         = "7"+  show EL6         = "6"+  show EL5         = "5"  data BugsFilter = BugsFilter {     _bPackage :: T.Text@@ -57,7 +57,7 @@  instance ToJSON BugsFilter where   toJSON (BugsFilter p v) = object [ "package" .= p-                                   , "version" .= versionToText v+                                   , "version" .= show v                                    ]  data Bug = Bug {