Minor formatting.
parent
4a874d8f46
commit
80bd3fdd9b
|
@ -91,11 +91,11 @@ validateEnv tables facts settings@Settings {..} typeDefaults = let
|
||||||
tableVs <- concat <$> mapM validateTable tables
|
tableVs <- concat <$> mapM validateTable tables
|
||||||
factVs <- concat <$> mapM validateFact facts
|
factVs <- concat <$> mapM validateFact facts
|
||||||
let dupTableVs = [ DuplicateTable table | table <- findDups . map tableName $ tables ]
|
let dupTableVs = [ DuplicateTable table | table <- findDups . map tableName $ tables ]
|
||||||
let dupFactVs = [ DuplicateFact fact | fact <- findDups . map factName $ facts ]
|
dupFactVs = [ DuplicateFact fact | fact <- findDups . map factName $ facts ]
|
||||||
let dupColVs = [ DuplicateColumn tableName col
|
dupColVs = [ DuplicateColumn tableName col
|
||||||
| Table{..} <- tables
|
| Table{..} <- tables
|
||||||
, col <- findDups . map columnName $ tableColumns ]
|
, col <- findDups . map columnName $ tableColumns ]
|
||||||
let dupDimVs = facts
|
dupDimVs = facts
|
||||||
>>- concatMap (dimColumnMappings settingDimPrefix)
|
>>- concatMap (dimColumnMappings settingDimPrefix)
|
||||||
>>> sort
|
>>> sort
|
||||||
>>> groupBy ((==) `on` fst)
|
>>> groupBy ((==) `on` fst)
|
||||||
|
|
Loading…
Reference in New Issue