abhin4v
/
ringo
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Refactors to simplify code.

master
Abhinav Sarkar 2016-07-06 23:17:12 +05:30
parent 1bf931d697
commit 9fe9816623
No known key found for this signature in database
GPG Key ID: 7C9166A6F5465AD5
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
ringo/src/Ringo/Generator/Create.hs
View File

@ -94,11 +94,12 @@ factTableIndexStatements fact table = do
DimTime -> Just [dimTimeColName cName]
NoDimId -> Just [cName]
TenantId -> Just [cName]
_ -> Nothing
_ -> Nothing
dimCols = [ [ factDimFKIdColumnName settingDimPrefix settingDimTableIdColumnName dimFact dimTable tables ]
| (dimFact, dimTable) <- allDims ]
tenantCols = [ [cName, dimTimeColName dimTimeCol] | cName <- maybeToList tenantIdCol ]
return [ CreateIndexTSQL ea (nmc "") (name tabName) (map nmc cols)
| cols <- factCols ++ dimCols ++ [ [cName, dimTimeColName dimTimeCol]
| cName <- maybeToList tenantIdCol ] ]
| cols <- factCols ++ dimCols ++ tenantCols ]