Commit 76d6e1e9 authored by Jurrien Stutterheim's avatar Jurrien Stutterheim

Clean up imports

parent 30d97304
......@@ -19,7 +19,6 @@ import StdBool, StdEnum, StdFile, StdFunc, StdMisc
import Text
import UtilIO
import UtilStrictLists
import Reader, State
:: CpmAction
= Project FilePath ProjectAction
......@@ -158,8 +157,8 @@ doProjectAction cleanhome pwd pn (BuildProject force ideenvs) world
# iniGeneral = initGeneral True compilerOptions pwd proj_path proj envs logfile
# {ls, gst_world} = pinit force {ls=iniGeneral,gst_world=world,gst_continue_or_stop=False}
= gst_world
where envsfile = cleanhome </> ideenvs
proj_path = GetLongPathName pn
where envsfile = cleanhome </> ideenvs
proj_path = GetLongPathName pn
doProjectAction cleanhome _ pn (ProjectPath pa) world
# projectfile = addExtension (dropExtension pn) "prj"
......@@ -214,7 +213,6 @@ openProject cleanhome projectfile world
saveProject :: !FilePath !Project !FilePath !*World -> (Bool, !*World)
saveProject cleanhome prj projectfile world = accFiles (SaveProjectFile projectfile prj cleanhome) world
rmStrictListIdx :: !Int !(List String) -> List String
rmStrictListIdx 0 (_ :! t) = t
rmStrictListIdx n (h :! t) | n > 0 = h :! (rmStrictListIdx (n - 1) t)
......
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