Move ppDeps from IR to Stack2JS

This is the only place it is used. Furthermore, having it defined in IR
removes it from the context of having to make it be valid JSON; anything
that is deemed 'prettier' might by accident be "re"used

Author: ssoelvsten

compiler/src/IR.hs

@@ -154,16 +154,6 @@ instance ComputesDependencies FunDef where
   dependencies (FunDef _ _ _ bb) = dependencies bb
 
 
-ppDeps :: ComputesDependencies a => a -> (PP.Doc , PP.Doc, PP.Doc)
-ppDeps a = let (ffs_0,lls_0, atoms_0) = execWriter  (dependencies a)               
-               (ffs, lls, aas) = (nub ffs_0, nub lls_0, nub atoms_0)
-
-               format dd =
-                   let tt = map (PP.doubleQuotes . ppId) dd in 
-                   (PP.brackets.PP.hsep) (PP.punctuate PP.comma tt)
-            in ( format ffs, format lls , format aas )            
-
-
 -----------------------------------------------------------
 -- Serialization instances
 -----------------------------------------------------------

compiler/src/Stack2JS.hs

@@ -258,7 +258,17 @@ instance ToJS FunDef where
        let lits = constsToJS consts
        jj <- toJS bb
        debug <- ask
-       let (irdeps, libdeps, atomdeps ) = IR.ppDeps irfdef
+
+       let ppDeps :: IR.ComputesDependencies a => a -> (PP.Doc, PP.Doc, PP.Doc)
+           ppDeps a = let (ffs_0,lls_0, atoms_0) = execWriter  (IR.dependencies a)
+
+                          (ffs, lls, aas)        = (nub ffs_0, nub lls_0, nub atoms_0)
+
+                          format dd = let tt = map (PP.doubleQuotes . ppId) dd
+                                      in (PP.brackets.PP.hsep) (PP.punctuate PP.comma tt)
+                      in (format ffs, format lls, format aas)
+
+       let (irdeps, libdeps, atomdeps ) = ppDeps irfdef
        sparseSlotIdxPP <- ppSparseSlotIdx
 
        return $