khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2025-01-05 20:04:49 +03:00
Code Issues Projects Releases Wiki Activity

Simplify.

Browse Source
This commit is contained in:
Kei Hibino 2014-10-09 16:35:41 +09:00
parent 8f2f932414
commit 4c96f3f5c8
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28,6 +28,7 @@ module Database.HDBC.Query.TH (
import Data.Maybe (listToMaybe, isJust, catMaybes)
import qualified Data.Map as Map
import Control.Monad (when)
import Database.HDBC (IConnection, SqlValue, prepare)
@ -106,11 +107,10 @@ defineTableFromDB connect drv scm tbl derives = do
let colIxMap = Map.fromList $ zip [c | (c, _) <- cols] [(0 :: Int) .. ]
lookup' k = do
case Map.lookup k colIxMap of
Just i -> return $ Just i
Nothing -> do
putLog $ "defineTableFromDB: fail to find index of pkey - " ++ k ++ ". Something wrong!!"
return Nothing
let found = Map.lookup k colIxMap
when (found == Nothing) . putLog
$ "defineTableFromDB: fail to find index of pkey - " ++ k ++ ". Something wrong!!"
return found
primaryIxs <- case primCols of
_:_ -> do