khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-08 14:26:33 +03:00
Code Issues Projects Releases Wiki Activity

relational-query-HDBC: drop redundant no-primary-key message.

Browse Source
This commit is contained in:
Kei Hibino 2018-06-11 12:49:46 +09:00
parent 95e9c3188d
commit 967de7cab0
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -72,8 +72,7 @@ getPrimaryKey' conn lchan scm' tbl' = do
tbl = map toLower tbl'
mayKeyLen <- runQuery' conn primaryKeyLengthQuerySQL (scm, tbl)
case mayKeyLen of
[] -> do
putLog lchan "getPrimaryKey: Primary key not found."
[] ->
return []
[keyLen] -> do
primCols <- runQuery' conn (primaryKeyQuerySQL keyLen) (scm, tbl)