Verified Commit e999df8d authored by Camil Staps's avatar Camil Staps 🚀

Find modules by icl instead of dcl, since the icl always exists

parent d7190db2
......@@ -117,7 +117,7 @@ findModules ex root lib aux base w
| isError fps = ([], w)
#! (Ok fps) = fps
#! mods = map (\s -> let mod = basedot +++ s % (0, size s - 5) in
(lib, mod, aux)) $ filter included $ filter isDclModule fps
(lib, mod, aux)) $ filter included $ filter isIclModule fps
#! (moremodss,w) = mapSt (findModules ex root lib aux o ((+++) basedot)) (filter isDirectory fps) w
= (removeDupBy (\(l,m,_)->(l,m)) (mods ++ flatten moremodss), w)
where
......@@ -132,8 +132,8 @@ where
included :: String -> Bool
included s = not (any ((<>) -1 o flip indexOf (path </> s)) ex)
isDclModule :: String -> Bool
isDclModule s = s % (size s - 4, size s - 1) == ".dcl"
isIclModule :: String -> Bool
isIclModule s = s % (size s - 4, size s - 1) == ".icl"
isDirectory :: (String -> Bool)
isDirectory = not o isMember '.' o fromString
......
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