Fixes swapped dimension and fact json file names.

pull/1/head
Abhinav Sarkar 7 years ago
parent ad14698ab0
commit 8f27bdf33c
  1. 4
      app/Main.hs

@ -45,10 +45,10 @@ writeFiles outputDir env@Env{..} = do
. foldl (\acc -> Map.union acc . extractDependencies env) Map.empty
$ envFacts
BS.writeFile (outputDir </> Text.unpack settingFactsJSONFileName) . encode $
BS.writeFile (outputDir </> Text.unpack settingDimensionJSONFileName) . encode $
[ 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 ]
where

Loading…
Cancel
Save