Update to new Cloogle API

parent f579cdb1
Pipeline #22167 failed with stages
in 47 seconds
......@@ -8,6 +8,7 @@ module clean_dependencies
* https://files.camilstaps.nl/cloogle-dumps.
*/
import _SystemStrictLists
import StdBool
import StdFile
from StdFunc import flip, o
......@@ -58,7 +59,7 @@ Start w
= snd (fclose io w)
# db = fromJust db
# (es,db) = getEntries db
# mods = [me \\ (ModuleEntry me,_) <- es]
# mods = [me \\ (ModuleEntry me,_) <|- es]
# (deps,db) = appFst (groupDependencies o flatten) (mapSt dependencies mods db)
# io = io
<<< "digraph Dependencies {\n"
......@@ -118,12 +119,12 @@ where
dependencies :: ModuleEntry *CloogleDB -> *([Dependency], *CloogleDB)
dependencies me db
# (usages,db) = getIndices me.me_usages db
# (usages,db) = getValuesByIndices` me.me_usages db
= (filter (\x -> x.from_lib <> x.to_lib && hd x.in_modules <> "")
[{ from_lib = fromJust (getLibrary ume.me_loc)
, to_lib = fromJust (getLibrary me.me_loc)
, in_modules = [fromJust (getModule ume.me_loc)]
} \\ {value=ModuleEntry ume} <- usages], db)
} \\ ModuleEntry ume <|- usages], db)
groupDependencies :: ([Dependency] -> [Dependency])
groupDependencies =
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment