khibino/haskell-relational-record
1
1
Fork 0
mirror of https://github.com/khibino/haskell-relational-record.git synced 2024-09-19 05:07:12 +03:00
Code Issues Projects Releases Wiki Activity

Pointwised.

Browse Source
This commit is contained in:
Kei Hibino 2016-02-21 10:40:06 +09:00
parent 5762a41da3
commit dac76081b6
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/src/Database/Relational/Query/TH.hs
View File

@ -259,13 +259,13 @@ defineTableTypes tableVar' relVar' insVar' insQVar' recordType' table columns =
return $ iDs ++ dDs
tableSQL :: Bool -> String -> String -> String
tableSQL normalize schema table = normalizeS schema ++ '.' : normalizeT table where
tableSQL normalize schema table = normalizeS ++ '.' : normalizeT where
normalizeS
| normalize = map toUpper
| otherwise = id
| normalize = map toUpper schema
| otherwise = schema
normalizeT
| normalize = map toLower
| otherwise = id
| normalize = map toLower table
| otherwise = table
derivationVarNameDefault :: String -> VarName
derivationVarNameDefault = (`varNameWithPrefix` "derivationFrom")