Fixes swapped dimension and fact json file names.
parent
ad14698ab0
commit
8f27bdf33c
|
@ -45,10 +45,10 @@ writeFiles outputDir env@Env{..} = do
|
||||||
. foldl (\acc -> Map.union acc . extractDependencies env) Map.empty
|
. foldl (\acc -> Map.union acc . extractDependencies env) Map.empty
|
||||||
$ envFacts
|
$ envFacts
|
||||||
|
|
||||||
BS.writeFile (outputDir </> Text.unpack settingFactsJSONFileName) . encode $
|
BS.writeFile (outputDir </> Text.unpack settingDimensionJSONFileName) . encode $
|
||||||
[ tableName table | (_, tabs) <- dimTables, table <- tabs , table `notElem` envTables ]
|
[ tableName table | (_, tabs) <- dimTables, table <- tabs , table `notElem` envTables ]
|
||||||
|
|
||||||
BS.writeFile (outputDir </> Text.unpack settingDimensionJSONFileName) . encode $
|
BS.writeFile (outputDir </> Text.unpack settingFactsJSONFileName) . encode $
|
||||||
[ tableName table | (_, table) <- factTables ]
|
[ tableName table | (_, table) <- factTables ]
|
||||||
|
|
||||||
where
|
where
|
||||||
|
|
Loading…
Reference in New Issue