hasql-optparse-applicative 0.9 → 0.9.1

raw patch · 2 files changed

+14/−20 lines, 2 filesdep ~hasqldep ~hasql-poolPVP: major bump suggested

API removals or changes: PVP suggests a major version bump

Dependency ranges changed: hasql, hasql-pool

API changes (from Hackage documentation)

Files

• hasql-optparse-applicative.cabal +4/−4
• library/Hasql/OptparseApplicative.hs +10/−16

@@ -1,6 +1,6 @@ cabal-version: 3.0 name: hasql-optparse-applicative-version: 0.9+version: 0.9.1 synopsis: "optparse-applicative" parsers for "hasql" category: Hasql, Database, PostgreSQL, Options homepage:@@ -19,7 +19,7 @@ source-repository head   type: git   location:-    git://github.com/nikita-volkov/hasql-optparse-applicative.git+    https://github.com/nikita-volkov/hasql-optparse-applicative  library   hs-source-dirs: library@@ -69,8 +69,8 @@     attoparsec-time >=1.0.3 && <1.1,     base >=4.11 && <5,     bytestring >=0.10 && <1,-    hasql >=1.9 && <1.10,-    hasql-pool >=1.3 && <1.4,+    hasql >=1.10 && <1.11,+    hasql-pool >=1.4.1 && <1.5,     optparse-applicative >=0.18 && <1,     text >=1.2 && <3,     time >=1.10 && <2,

@@ -8,9 +8,7 @@ import qualified Attoparsec.Time.Text as AttoparsecTime import qualified Data.Attoparsec.Text as Attoparsec import Data.Text (Text)-import qualified Hasql.Connection.Setting as Connection.Setting-import qualified Hasql.Connection.Setting.Connection as Connection.Setting.Connection-import qualified Hasql.Connection.Setting.Connection.Param as Connection.Setting.Connection.Param+import qualified Hasql.Connection.Settings as Connection.Settings import Hasql.OptparseApplicative.Prelude import qualified Hasql.Pool.Config as Pool.Config import qualified Hasql.Pool.Config.Defaults as Pool.Config.Defaults@@ -98,20 +96,16 @@   -- You can use this function to prefix the name or you can just specify 'id',   -- if you don't want it changed.   (String -> String) ->-  Parser [Connection.Setting.Setting]+  Parser Connection.Settings.Settings connectionSettings modifyName =-  sequenceA-    [ Connection.Setting.connection-        . Connection.Setting.Connection.params-        <$> sequenceA-          [ Connection.Setting.Connection.Param.host <$> host modifyName,-            Connection.Setting.Connection.Param.port <$> port modifyName,-            Connection.Setting.Connection.Param.user <$> user modifyName,-            Connection.Setting.Connection.Param.password <$> password modifyName,-            Connection.Setting.Connection.Param.dbname <$> database modifyName-          ],-      Connection.Setting.usePreparedStatements <$> usePreparedStatements modifyName-    ]+  mconcat+    <$> sequenceA+      [ (\h p -> Connection.Settings.hostAndPort h p) <$> host modifyName <*> port modifyName,+        Connection.Settings.user <$> user modifyName,+        Connection.Settings.password <$> password modifyName,+        Connection.Settings.dbname <$> database modifyName,+        (\b -> if b then mempty else Connection.Settings.noPreparedStatements True) <$> usePreparedStatements modifyName+      ]  host :: (String -> String) -> Parser Text host modifyName =