write-output-to-json-file

Author: praveen007kn

src/Diff.hs

@@ -63,7 +63,7 @@ run = do
                 finalList      = map (\(moduleName, currentFns, previousFns) -> (moduleName, currentFns, previousFns, HM.keys $ HM.difference (HM.fromList currentFns) (HM.fromList previousFns))) listOfFunMod
                 finalResult    = map (\(moduleName, currentFns, previousFns, removedFns) -> getFunctionModified (HM.fromList currentFns) (HM.fromList previousFns) removedFns moduleName) finalList
                 result         = toString $ encode finalResult
-            writeFile "funs_modified.txt" result
+            writeFile "funs_modified.json" result
             print result
             pure ()
         _ -> fail $ "can't proceed please pass all the arguments in the order of repoUrl localPath oldCommit newCommit but got: " <> show x