relational-query-HDBC 0.0.1.0 → 0.0.1.1
raw patch · 5 files changed
+10/−6 lines, 5 files
Files
- relational-query-HDBC.cabal +2/−2
- src/Database/HDBC/Schema/MySQL.hs +2/−1
- src/Database/HDBC/Schema/Oracle.hs +2/−1
- src/Database/HDBC/Schema/SQLServer.hs +2/−1
- src/Database/HDBC/Schema/SQLite3.hs +2/−1
relational-query-HDBC.cabal view
@@ -1,12 +1,12 @@ name: relational-query-HDBC-version: 0.0.1.0+version: 0.0.1.1 synopsis: HDBC instance of relational join and typed query for HDBC description: This package contains HDBC instance of relational-query and typed query for HDBC. Generating Database table definitions and functions for relational-query by reading table and index definitions from Database system catalogs.-homepage: http://twitter.com/khibino+homepage: http://khibino.github.io/haskell-relational-record/ license: BSD3 license-file: LICENSE author: Kei Hibino, Shohei Murayama, Shohei Yasutake, Sho KURODA
src/Database/HDBC/Schema/MySQL.hs view
@@ -9,6 +9,7 @@ import Prelude hiding (length) import Language.Haskell.TH (TypeQ)+import Language.Haskell.TH.Lib.Extra (reportMessage) import qualified Data.List as List import Data.Map (fromList) @@ -38,7 +39,7 @@ logPrefix = ("MySQL: " ++) putLog :: String -> IO ()-putLog = putStrLn . logPrefix+putLog = reportMessage . logPrefix compileErrorIO :: String -> IO a compileErrorIO = fail . logPrefix
src/Database/HDBC/Schema/Oracle.hs view
@@ -10,6 +10,7 @@ import Data.Map (fromList) import Data.Maybe (catMaybes) import Language.Haskell.TH (TypeQ)+import Language.Haskell.TH.Lib.Extra (reportMessage) import Database.HDBC (IConnection, SqlValue) import Database.HDBC.Record.Query (runQuery')@@ -34,7 +35,7 @@ logPrefix = ("Oracle: " ++) putLog :: String -> IO ()-putLog = putStrLn . logPrefix+putLog = reportMessage . logPrefix compileErrorIO :: String -> IO a compileErrorIO = fail . logPrefix
src/Database/HDBC/Schema/SQLServer.hs view
@@ -29,6 +29,7 @@ import Database.Relational.Schema.SQLServerSyscat.Columns (Columns) import Database.Relational.Schema.SQLServerSyscat.Types (Types) import Language.Haskell.TH (TypeQ)+import Language.Haskell.TH.Lib.Extra (reportMessage) $(makeRecordPersistableWithSqlTypeDefaultFromDefined [t| SqlValue |] ''Columns)@@ -40,7 +41,7 @@ logPrefix = ("SQLServer: " ++) putLog :: String -> IO ()-putLog = putStrLn . logPrefix+putLog = reportMessage . logPrefix compileErrorIO :: String -> IO a compileErrorIO = fail . logPrefix
src/Database/HDBC/Schema/SQLite3.hs view
@@ -31,6 +31,7 @@ import Database.Relational.Schema.SQLite3Syscat.IndexList (IndexList) import Database.Relational.Schema.SQLite3Syscat.TableInfo (TableInfo) import Language.Haskell.TH (TypeQ)+import Language.Haskell.TH.Lib.Extra (reportMessage) $(makeRecordPersistableWithSqlTypeDefaultFromDefined [t| SqlValue |] ''TableInfo)@@ -45,7 +46,7 @@ logPrefix = ("SQLite3: " ++) putLog :: String -> IO ()-putLog = putStrLn . logPrefix+putLog = reportMessage . logPrefix compileErrorIO :: String -> IO a compileErrorIO = fail . logPrefix