Fixes swapped dimension and fact json file names.

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