Refactors to simplify code.
parent
1bf931d697
commit
9fe9816623
|
@ -99,6 +99,7 @@ factTableIndexStatements fact table = do
|
|||
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 ]
|
||||
|
|
Loading…
Reference in New Issue