Verified Commit 1063d1b7 authored by Camil Staps's avatar Camil Staps 🚀

Fix pattern_core & pattern_app matching

parent a50f8666
...@@ -395,8 +395,8 @@ where ...@@ -395,8 +395,8 @@ where
makeEntry :: String -> 'CDB'.ModuleEntry makeEntry :: String -> 'CDB'.ModuleEntry
makeEntry fn = makeEntry fn =
{ me_loc = location item.IndexItem.name modname (path </?> fn) (Just 1) (Just 1) modname { me_loc = location item.IndexItem.name modname (path </?> fn) (Just 1) (Just 1) modname
, me_is_core = match item.pattern_core (path </> fn) , me_is_core = match item.pattern_core (path </?> fn)
, me_is_app = match item.pattern_app (path </> fn) , me_is_app = match item.pattern_app (path </?> fn)
, me_documentation = Nothing , me_documentation = Nothing
, me_usages = [] , me_usages = []
} }
...@@ -404,7 +404,7 @@ where ...@@ -404,7 +404,7 @@ where
modname = basedot +++ fn % (0, size fn - 5) modname = basedot +++ fn % (0, size fn - 5)
included :: String -> Bool included :: String -> Bool
included s = not (match item.pattern_exclude (path </> s)) included s = not (match item.pattern_exclude (path </?> s))
isIclModule :: String -> Bool isIclModule :: String -> Bool
isIclModule s = s % (size s - 4, size s - 1) == ".icl" isIclModule s = s % (size s - 4, size s - 1) == ".icl"
......
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