Commit 437bb1e7 authored by Jurrien Stutterheim's avatar Jurrien Stutterheim

Use full path name to locate .prj file

parent 194eb7d4
......@@ -69,7 +69,7 @@ getLine world
# (_, world) = fclose console world
= (line, world)
import StdDebug
/**
* Execute project-specific actions
*/
......@@ -80,7 +80,8 @@ doProjectAction cleanhome pwd pn CreateProject world
| not exists // = error ("Main module " +++ mainmodule +++ " does not exist.") world
# world = showLines ["Main module " +++ mainmodule +++ " does not exist. Create it? [y/n]"] world
# (line, world) = getLine world
= if (line.[0] == 'y') (mkMainAndProject world) (error ("Failed to create project. Need " +++ mainmodule) world)
| line.[0] == 'y' = mkMainAndProject world
| otherwise = error ("Failed to create project. Need " +++ mainmodule) world
| otherwise = mkProject world
where
basefilename = dropExtension pn
......@@ -113,7 +114,7 @@ doProjectAction cleanhome pwd pn ShowProject world
doProjectAction cleanhome pwd pn (BuildProject force ideenvs) world
# (envs, world) = readIDEEnvs cleanhome ideenvs world
# proj_path = GetLongPathName pn
# proj_path = GetLongPathName (pwd </> pn)
# ((proj, ok, err), world) = accFiles (ReadProjectFile proj_path cleanhome) world
| not ok || err <> "" = error ("CPM failed while opening project: " +++ err +++ "\n") world
# (console, world) = stdio world
......
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