carp-lang/Carp
1
1
Fork 0
mirror of https://github.com/carp-lang/Carp.git synced 2024-10-11 04:27:55 +03:00
Code Issues Projects Releases Wiki Activity

dependencies: append .carp to file to load if it doesn’t already end with it

Browse Source
This commit is contained in:
hellerve 2018-08-06 21:23:05 +02:00
parent 39bc090ba1
commit bc16d8f7ee
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/Eval.hs
View File

@ -1003,9 +1003,12 @@ commandLoad [xobj@(XObj (Str path) _ _)] =
case x1 of
ExitSuccess ->
let fName = last (splitOn "/" path)
realName = if isSuffixOf ".git" fName
then take (length fName - 4) fName
else fName
realName' = if isSuffixOf ".git" fName
then take (length fName - 4) fName
else fName
realName = if isSuffixOf ".carp" realName'
then realName'
else realName' ++ ".carp"
fileToLoad = fpath ++ "/" ++ realName
mainToLoad = fpath ++ "/main.carp"
in do