yam-transaction-odbc (empty) → 0.1.0.0
raw patch · 5 files changed
+96/−0 lines, 5 filesdep +HDBC-odbcdep +basedep +containerssetup-changed
Dependencies added: HDBC-odbc, base, containers, persistent-odbc, yam-app
Files
- LICENSE +30/−0
- README.md +1/−0
- Setup.hs +2/−0
- src/Yam/Transaction/ODBC.hs +36/−0
- yam-transaction-odbc.cabal +27/−0
+ LICENSE view
@@ -0,0 +1,30 @@+Copyright Daniel YU (c) 2018++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 Daniel YU 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.
+ README.md view
@@ -0,0 +1,1 @@+# yam-transaction-odbc
+ Setup.hs view
@@ -0,0 +1,2 @@+import Distribution.Simple+main = defaultMain
+ src/Yam/Transaction/ODBC.hs view
@@ -0,0 +1,36 @@+{-# LANGUAGE DataKinds #-}+{-# LANGUAGE KindSignatures #-}+{-# LANGUAGE OverloadedStrings #-}++module Yam.Transaction.ODBC where++import Yam.Import+import Yam.Logger.MonadLogger+import Yam.Transaction++import qualified Data.Map as M+import Database.Persist.ODBC+import GHC.TypeLits+import System.Environment (setEnv)++data ODBC (db :: Symbol)++instance KnownSymbol db => HasDataSource (ODBC db) where+ connector p logger ds a = do+ let mayMap = do map <- extra ds+ M.lookup "NLS_LANG" map+ case mayMap of+ Nothing -> error "DataSource extra.NLS_LANG not set"+ Just m -> liftIO $ setEnv "NLS_LANG" $ cs m+ runLoggingT (withODBCPool (toDbTp $ symbolVal $ toP p) (cs $ conn ds) (thread ds) (lift.a)) logger+ where toP :: KnownSymbol db => Proxy (ODBC db) -> Proxy db+ toP _ = Proxy+ toDbTp :: String -> Maybe DBType+ toDbTp "oracle12c" = Just (Oracle True)+ toDbTp "oracle" = Just (Oracle False)+ toDbTp _ = Nothing++oracleProvider :: MonadTransaction m => DataSourceProvider m a+oracleProvider = ("oracle", connector (Proxy :: Proxy (ODBC "oracle")))+oracle12cProvider :: MonadTransaction m => DataSourceProvider m a+oracle12cProvider = ("oracle12c", connector (Proxy :: Proxy (ODBC "oracle12c")))
+ yam-transaction-odbc.cabal view
@@ -0,0 +1,27 @@+name: yam-transaction-odbc+version: 0.1.0.0+description: Transaction ODBC Plugin+homepage: https://github.com/leptonyu/yam-transaction-odbc#readme+license: BSD3+license-file: LICENSE+author: Daniel YU+maintainer: i@icymint.me+copyright: Copyright: (c) 2017 Daniel YU+category: Web+build-type: Simple+extra-source-files: README.md+cabal-version: >=1.10++library+ hs-source-dirs: src+ exposed-modules: Yam.Transaction.ODBC+ build-depends: base >= 4.7 && < 5+ , yam-app+ , containers+ , HDBC-odbc+ , persistent-odbc+ default-language: Haskell2010++source-repository head+ type: git+ location: https://github.com/leptonyu/yam-transaction-odbc