Minor formatting.

master
Abhinav Sarkar 2016-07-11 23:36:39 +05:30
parent 4a874d8f46
commit 80bd3fdd9b
No known key found for this signature in database
GPG Key ID: 7C9166A6F5465AD5
2 changed files with 5 additions and 5 deletions

View File

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