hasql-optparse-applicative 0.7.1.2 → 0.7.1.3
raw patch · 2 files changed
+62/−55 lines, 2 filesPVP ok
version bump matches the API change (PVP)
API changes (from Hackage documentation)
Files
hasql-optparse-applicative.cabal view
@@ -1,11 +1,13 @@ cabal-version: 3.0 name: hasql-optparse-applicative-version: 0.7.1.2+version: 0.7.1.3 synopsis: "optparse-applicative" parsers for "hasql" category: Hasql, Database, PostgreSQL, Options-homepage: https://github.com/sannsyn/hasql-optparse-applicative +homepage:+ https://github.com/nikita-volkov/hasql-optparse-applicative + bug-reports:- https://github.com/sannsyn/hasql-optparse-applicative/issues + https://github.com/nikita-volkov/hasql-optparse-applicative/issues author: Nikita Volkov <nikita.y.volkov@mail.ru> maintainer: Nikita Volkov <nikita.y.volkov@mail.ru>@@ -15,7 +17,8 @@ source-repository head type: git- location: git://github.com/sannsyn/hasql-optparse-applicative.git+ location:+ git://github.com/nikita-volkov/hasql-optparse-applicative.git library hs-source-dirs: library
library/Hasql/OptparseApplicative.hs view
@@ -26,33 +26,37 @@ <*> connectionSettings updatedName where size =- option auto . mconcat $- [ long (updatedName "pool-size"),- value 1,- showDefault,- help "Amount of connections in the pool"- ]+ option auto+ . mconcat+ $ [ long (updatedName "pool-size"),+ value 1,+ showDefault,+ help "Amount of connections in the pool"+ ] acquisitionTimeout =- attoparsedOption C.diffTime . mconcat $- [ long (updatedName "pool-acquisition-timeout"),- value 10,- showDefault,- help "How long it takes until the attempt to connect is considered timed out"- ]+ attoparsedOption C.diffTime+ . mconcat+ $ [ long (updatedName "pool-acquisition-timeout"),+ value 10,+ showDefault,+ help "How long it takes until the attempt to connect is considered timed out"+ ] connectionLifetime =- attoparsedOption C.diffTime . mconcat $- [ long (updatedName "pool-connection-lifetime"),- value (fromIntegral (24 * 60 * 60)),- showDefault,- help "Maximal lifetime for connections. Allows to periodically clean up the connection resources to avoid server-side leaks"- ]+ attoparsedOption C.diffTime+ . mconcat+ $ [ long (updatedName "pool-connection-lifetime"),+ value (fromIntegral (24 * 60 * 60)),+ showDefault,+ help "Maximal lifetime for connections. Allows to periodically clean up the connection resources to avoid server-side leaks"+ ] connectionIdleTime =- attoparsedOption C.diffTime . mconcat $- [ long (updatedName "pool-connection-idle-time"),- value (fromIntegral (5 * 60)),- showDefault,- help "Maximal connection idle time"- ]+ attoparsedOption C.diffTime+ . mconcat+ $ [ long (updatedName "pool-connection-idle-time"),+ value (fromIntegral (5 * 60)),+ showDefault,+ help "Maximal connection idle time"+ ] -- | Given a function, which updates the long names produces a parser -- of @Hasql.Connection.'A.Settings'@.@@ -64,37 +68,37 @@ A.settings <$> host <*> port <*> user <*> password <*> database where host =- fmap fromString $- strOption $- long (updatedName "host")- <> value "127.0.0.1"- <> showDefault- <> help "Server host"+ fmap fromString+ $ strOption+ $ long (updatedName "host")+ <> value "127.0.0.1"+ <> showDefault+ <> help "Server host" port =- option auto $- long (updatedName "port")- <> value 5432- <> showDefault- <> help "Server port"+ option auto+ $ long (updatedName "port")+ <> value 5432+ <> showDefault+ <> help "Server port" user =- fmap fromString $- strOption $- long (updatedName "user")- <> value "postgres"- <> showDefault- <> help "Username"+ fmap fromString+ $ strOption+ $ long (updatedName "user")+ <> value "postgres"+ <> showDefault+ <> help "Username" password =- fmap fromString $- strOption $- long (updatedName "password")- <> value ""- <> showDefault- <> help "Password"+ fmap fromString+ $ strOption+ $ long (updatedName "password")+ <> value ""+ <> showDefault+ <> help "Password" database =- fmap fromString $- strOption $- long (updatedName "database")- <> help "Database name"+ fmap fromString+ $ strOption+ $ long (updatedName "database")+ <> help "Database name" -- * Helpers