postgresql-query 3.5.0 → 3.6.0

raw patch · 4 files changed

+16/−3 lines, 4 filesdep ~base

Dependency ranges changed: base

Files

CHANGELOG.md +4/−0
postgresql-query.cabal +1/−1
src/Database/PostgreSQL/Query/Entity/Functions.hs +4/−2
src/Database/PostgreSQL/Query/Types.hs +7/−0

CHANGELOG.md view

@@ -1,5 +1,9 @@ # CHANGELOG +## 3.6.0+### Changed+* Compatibility with ghc-8.6.5+ ## 3.5.0 ### Changed * Copatibility with ghc-8.4

postgresql-query.cabal view

@@ -1,5 +1,5 @@ name:                postgresql-query-version:             3.5.0+version:             3.6.0  synopsis: Sql interpolating quasiquote plus some kind of primitive ORM           using it

src/Database/PostgreSQL/Query/Entity/Functions.hs view

@@ -276,5 +276,7 @@   -> q   -> m Integer pgSelectCount p q = do-    [[c]] <- pgQuery [sqlExp|SELECT count(id) FROM ^{tableName p} ^{q}|]-    return c+    r <- pgQuery [sqlExp|SELECT count(id) FROM ^{tableName p} ^{q}|]+    case r of+      [[c]] -> return c+      _ -> error "this should not happen"

src/Database/PostgreSQL/Query/Types.hs view

@@ -45,6 +45,13 @@ import Instances.TH.Lift () import Language.Haskell.TH.Lift ( deriveLift ) +#if MIN_VERSION_base(4,8,0)+import Data.Semigroup+#else+import Data.Monoid+import Data.Semigroup+#endif+ import qualified Blaze.ByteString.Builder.ByteString as BB import qualified Control.Monad.Trans.State.Lazy as STL import qualified Control.Monad.Trans.State.Strict as STS