Verified Commit 21bc591a authored by Camil Staps's avatar Camil Staps 🚀

Use icl filenames everywhere

parent bedbe096
......@@ -440,8 +440,8 @@ where
castLocFrth m = map (\(a,b,c,l) -> (a,b,c,castLoc m l))
castLoc :: String LocationInModule -> 'CDB'.Location
castLoc m l = location lib m dclpath l.dcl_line l.icl_line $ fromMaybe "" l.LocationInModule.name
dclpath = mkdir ('CDB'.getName mod.me_loc) +++ ".dcl"
castLoc m l = location lib m iclpath l.dcl_line l.icl_line $ fromMaybe "" l.LocationInModule.name
iclpath = mkdir ('CDB'.getName mod.me_loc) +++ ".icl"
mkdir :: String -> String
mkdir s = { if (c == '.') '/' c \\ c <-: s }
......
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