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

Fix pattern_core & pattern_app matching

parent a50f8666
......@@ -395,8 +395,8 @@ where
makeEntry :: String -> 'CDB'.ModuleEntry
makeEntry fn =
{ 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_app = match item.pattern_app (path </> fn)
, me_is_core = match item.pattern_core (path </?> fn)
, me_is_app = match item.pattern_app (path </?> fn)
, me_documentation = Nothing
, me_usages = []
}
......@@ -404,7 +404,7 @@ where
modname = basedot +++ fn % (0, size fn - 5)
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 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