persistent-pagination 0.1.1.1 → 0.1.1.2
raw patch · 4 files changed
+41/−28 lines, 4 filesdep ~microlensPVP ok
version bump matches the API change (PVP)
Dependency ranges changed: microlens
API changes (from Hackage documentation)
Files
- ChangeLog.md +4/−0
- persistent-pagination.cabal +1/−1
- test/Database/Esqueleto/PaginationSpec.hs +8/−5
- test/Database/Persist/PaginationSpec.hs +28/−22
ChangeLog.md view
@@ -1,5 +1,9 @@ # Changelog for persistent-pagination +## 0.1.1.2++- Fix test suite for `persistent-2.11` support.+ ## 0.1.1.0 - Add `Database.Esqueleto.Pagination` module for streaming from an `Esqueleto` query.
persistent-pagination.cabal view
@@ -1,7 +1,7 @@ cabal-version: 1.12 name: persistent-pagination-version: 0.1.1.1+version: 0.1.1.2 synopsis: Efficient and correct pagination for persistent or esqueleto queries. description: Please see the README on GitHub at <https://github.com/parsonsmatt/persistent-pagination#readme> homepage: https://github.com/parsonsmatt/persistent-pagination#readme
test/Database/Esqueleto/PaginationSpec.hs view
@@ -1,4 +1,6 @@+{-# LANGUAGE DataKinds #-} {-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE FlexibleInstances #-} {-# LANGUAGE GADTs #-} {-# LANGUAGE GeneralizedNewtypeDeriving #-} {-# LANGUAGE MultiParamTypeClasses #-}@@ -7,6 +9,7 @@ {-# LANGUAGE TemplateHaskell #-} {-# LANGUAGE TypeFamilies #-} {-# LANGUAGE UndecidableInstances #-}+ module Database.Esqueleto.PaginationSpec where import Conduit@@ -14,18 +17,18 @@ import Control.Monad import Control.Monad.IO.Class import Control.Monad.Reader-import qualified Data.List as List-import qualified Data.Map as Map+import qualified Data.List as List+import qualified Data.Map as Map import Data.Maybe-import qualified Data.Set as Set+import qualified Data.Set as Set import Data.Time-import Database.Persist.Sqlite hiding ((==.))+import Database.Persist.Sqlite hiding ((==.)) import Database.Persist.TH import Test.Hspec import Test.QuickCheck +import Database.Esqueleto (val, (==.), (^.)) import Database.Esqueleto.Pagination-import Database.Esqueleto (val, (==.), (^.)) share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistUpperCase|
test/Database/Persist/PaginationSpec.hs view
@@ -1,28 +1,34 @@-{-# LANGUAGE QuasiQuotes #-}-{-# LANGUAGE FlexibleContexts #-}-{-# LANGUAGE TemplateHaskell #-}-{-# LANGUAGE TypeFamilies #-}-{-# LANGUAGE UndecidableInstances #-}-{-# LANGUAGE OverloadedStrings, MultiParamTypeClasses, GADTs, GeneralizedNewtypeDeriving #-}+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE FlexibleContexts #-}+{-# LANGUAGE FlexibleInstances #-}+{-# LANGUAGE GADTs #-}+{-# LANGUAGE GeneralizedNewtypeDeriving #-}+{-# LANGUAGE MultiParamTypeClasses #-}+{-# LANGUAGE OverloadedStrings #-}+{-# LANGUAGE QuasiQuotes #-}+{-# LANGUAGE TemplateHaskell #-}+{-# LANGUAGE TypeFamilies #-}+{-# LANGUAGE UndecidableInstances #-}+ module Database.Persist.PaginationSpec where -import Control.Monad.Reader-import qualified Data.Set as Set-import qualified Data.Map as Map-import qualified Data.List as List-import Control.Concurrent-import Conduit-import Data.Maybe-import Control.Monad.IO.Class-import Test.Hspec-import Test.QuickCheck-import Control.Monad-import Database.Persist.TH-import Database.Persist.Sql-import Database.Persist.Sqlite-import Data.Time+import Conduit+import Control.Concurrent+import Control.Monad+import Control.Monad.IO.Class+import Control.Monad.Reader+import qualified Data.List as List+import qualified Data.Map as Map+import Data.Maybe+import qualified Data.Set as Set+import Data.Time+import Database.Persist.Sql+import Database.Persist.Sqlite+import Database.Persist.TH+import Test.Hspec+import Test.QuickCheck -import Database.Persist.Pagination+import Database.Persist.Pagination share [mkPersist sqlSettings, mkMigrate "migrateAll"] [persistUpperCase|