postgres-options (empty) → 0.1.0.0
raw patch · 4 files changed
+106/−0 lines, 4 filesdep +basesetup-changed
Dependencies added: base
Files
- LICENSE +30/−0
- Setup.hs +2/−0
- postgres-options.cabal +26/−0
- src/Database/PostgreSQL/Simple/Options.hs +48/−0
+ LICENSE view
@@ -0,0 +1,30 @@+Copyright Author name here (c) 2016++All rights reserved.++Redistribution and use in source and binary forms, with or without+modification, are permitted provided that the following conditions are met:++ * Redistributions of source code must retain the above copyright+ notice, this list of conditions and the following disclaimer.++ * Redistributions in binary form must reproduce the above+ copyright notice, this list of conditions and the following+ disclaimer in the documentation and/or other materials provided+ with the distribution.++ * Neither the name of Author name here nor the names of other+ contributors may be used to endorse or promote products derived+ from this software without specific prior written permission.++THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS+"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT+LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR+A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT+OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,+SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT+LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,+DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY+THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT+(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE+OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ postgres-options.cabal view
@@ -0,0 +1,26 @@+name: postgres-options+version: 0.1.0.0+synopsis: An Options type representing options for postgres connections+description: This package exports an Options type representing options for postgres connections+homepage: https://github.com/jfischoff/postgres-options#readme+license: BSD3+license-file: LICENSE+author: Jonathan Fischoff+maintainer: jonathangfischoff@gmail.com+copyright: 2019 Jonathan Fischoff+category: Database+build-type: Simple+-- extra-source-files:+cabal-version: >=1.10++library+ hs-source-dirs: src+ exposed-modules: Database.PostgreSQL.Simple.Options+ build-depends: base >= 4.6 && < 5+ default-language: Haskell2010+ ghc-options: -Wall+ -fno-warn-unused-do-bind++source-repository head+ type: git+ location: https://github.com/jfischoff/postgres-options
+ src/Database/PostgreSQL/Simple/Options.hs view
@@ -0,0 +1,48 @@+{-| A resuable optparse-applicative parser for creating a postgresql-simple+ 'Connection'+-}++{-# LANGUAGE RecordWildCards #-}+{-# LANGUAGE DeriveGeneric #-}++module Database.PostgreSQL.Simple.Options where++import GHC.Generics (Generic)+import Data.Typeable (Typeable)+import Data.Maybe (Maybe, maybeToList)++data Options = Options+ { oHost :: Maybe String+ , oHostaddr :: Maybe String+ , oPort :: Maybe Int+ , oUser :: Maybe String+ , oPassword :: Maybe String+ , oDbname :: String+ , oConnectTimeout :: Maybe Int+ , oClientEncoding :: Maybe String+ , oOptions :: Maybe String+ , oFallbackApplicationName :: Maybe String+ , oKeepalives :: Maybe Int+ , oKeepalivesIdle :: Maybe Int+ , oKeepalivesCount :: Maybe Int+ , oSslmode :: Maybe String+ , oRequiressl :: Maybe Int+ , oSslcompression :: Maybe Int+ , oSslcert :: Maybe String+ , oSslkey :: Maybe String+ , oSslrootcert :: Maybe String+ , oRequirepeer :: Maybe String+ , oKrbsrvname :: Maybe String+ , oGsslib :: Maybe String+ , oService :: Maybe String+ } deriving (Show, Eq, Read, Ord, Generic, Typeable)++toArgs :: Options -> [String]+toArgs Options {..} =+ [ "--dbname=" <> oDbname+ ]+ ++ (("--host=" <>) <$> maybeToList oHost)+ ++ (("--username=" <>) <$> maybeToList oUser)+ ++ (("--password=" <>) <$> maybeToList oPassword)+ ++ ((\x -> "--host=" <> show x) <$> maybeToList oPort)+