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

Simply use 'fail' to put messages to be handled by ghc.

Browse Source
This commit is contained in:
Kei Hibino 2014-10-10 16:15:52 +09:00
parent c2f2fb7820
commit 662f26d774
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -20,7 +20,6 @@ module Database.HDBC.Schema.IBMDB2 (
import Prelude hiding (length)
import Language.Haskell.TH (TypeQ)
import qualified Language.Haskell.TH.Lib.Extra as TH
import qualified Data.List as List
import Data.Char (toUpper)
@ -54,7 +53,7 @@ putLog :: String -> IO ()
putLog = putStrLn . logPrefix
compileErrorIO :: String -> IO a
compileErrorIO = TH.compileError . logPrefix
compileErrorIO = fail . logPrefix
getPrimaryKey' :: IConnection conn
=> conn

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

@ -18,7 +18,6 @@ module Database.HDBC.Schema.PostgreSQL (
) where
import Language.Haskell.TH (TypeQ)
import qualified Language.Haskell.TH.Lib.Extra as TH
import Data.Char (toLower)
import Data.Map (fromList)
@ -55,7 +54,7 @@ putLog :: String -> IO ()
putLog = putStrLn . logPrefix
compileErrorIO :: String -> IO a
compileErrorIO = TH.compileError . logPrefix
compileErrorIO = fail . logPrefix
getPrimaryKey' :: IConnection conn
=> conn