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

relational-query-HDBC: warn about primary-key only enableWarning.

Browse Source
This commit is contained in:
Kei Hibino 2018-06-18 03:07:07 +09:00
parent 9542af81d5
commit 945eabda7d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
relational-query-HDBC/src/Database/HDBC/Query/TH.hs
View File

@ -129,7 +129,7 @@ tableAlongWithSchema connect config drv scm tbl derives = do
| verboseAsCompilerWarning config = reportWarning | verboseAsCompilerWarning config = reportWarning
| otherwise = const $ pure () | otherwise = const $ pure ()
mapM_ (foldLog reportVerbose reportWarning' reportError) logs mapM_ (foldLog reportVerbose reportWarning' reportError) logs
when (null primaryCols) . reportWarning when (null primaryCols) . reportWarning'
$ "getPrimaryKey: Primary key not found for table: " ++ scm ++ "." ++ tbl $ "getPrimaryKey: Primary key not found for table: " ++ scm ++ "." ++ tbl
let colIxMap = Map.fromList $ zip [c | (c, _) <- cols] [(0 :: Int) .. ] let colIxMap = Map.fromList $ zip [c | (c, _) <- cols] [(0 :: Int) .. ]