Commit 5eb8c0d8 authored by Diederik van Arkel's avatar Diederik van Arkel

filter modules in dead paths from project window

parent 904ee1fe
......@@ -500,11 +500,19 @@ where
| isEmpty mods
= []
# [(root,_,_,_):mods] = mods
# mods = filter isInPaths mods
# mods = sortBy (\(a,b,_,_) (c,d,_,_) -> less a b c d) mods
# moditems = makenice True "" mods
# rootitem = (GetModuleName root, OpenModule (MakeImpPathname root) emptySelection, openif root)
= [rootitem:moditems]
where
isInPaths (_,p,_,_) = any p srcpaths
where
any p Nil
= False
any p ((_,b) :! tl)
= p == b || any p tl
openif root ps
# defpath = MakeDefPathname root
# (exists,ps) = accFiles (FExists defpath) ps
......
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