From 8f27bdf33c3154a65696b376ac8417c0ecca2c87 Mon Sep 17 00:00:00 2001 From: Abhinav Sarkar Date: Tue, 29 Dec 2015 15:19:55 +0530 Subject: [PATCH] Fixes swapped dimension and fact json file names. --- app/Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/app/Main.hs b/app/Main.hs index cd6ce46..3da0f37 100644 --- a/app/Main.hs +++ b/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