khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-11-29 14:45:51 +03:00
Code Issues Projects Releases Wiki Activity

Use reportMessage function.

Browse Source
This commit is contained in:
Kei Hibino 2014-10-10 20:06:45 +09:00
parent bac62457a7
commit 98860b4bff
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
relational-query-HDBC/src/Database/HDBC/Schema/IBMDB2.hs
View File

@ -28,6 +28,8 @@ import Control.Monad (when)
import Database.HDBC (IConnection, SqlValue)
import Language.Haskell.TH.Lib.Extra (reportMessage)
import Database.HDBC.Record.Query (runQuery')
import Database.HDBC.Record.Persistable ()
@ -50,7 +52,7 @@ logPrefix :: String -> String
logPrefix = ("IBMDB2: " ++)
putLog :: String -> IO ()
putLog = putStrLn . logPrefix
putLog = reportMessage . logPrefix
compileErrorIO :: String -> IO a
compileErrorIO = fail . logPrefix

4
relational-query-HDBC/src/Database/HDBC/Schema/PostgreSQL.hs
View File

@ -25,6 +25,8 @@ import Control.Monad (when)
import Database.HDBC (IConnection, SqlValue)
import Language.Haskell.TH.Lib.Extra (reportMessage)
import Database.HDBC.Record.Query (runQuery')
import Database.HDBC.Record.Persistable ()
@ -51,7 +53,7 @@ logPrefix :: String -> String
logPrefix = ("PostgreSQL: " ++)
putLog :: String -> IO ()
putLog = putStrLn . logPrefix
putLog = reportMessage . logPrefix
compileErrorIO :: String -> IO a
compileErrorIO = fail . logPrefix