Commit a91d5e3c authored by John van Groningen's avatar John van Groningen

rename getPath and setPath as getProjectFilePath and setProjectFilePath

parent 13efbf36
......@@ -48,8 +48,8 @@ setABCCache :: !*ABCCache !*GeneralSt -> *GeneralSt
getFICache :: !*GeneralSt -> (FileInfoCache,*GeneralSt)
setFICache :: !FileInfoCache !*GeneralSt -> *GeneralSt
getPath :: !*GeneralSt -> (!Pathname,!*GeneralSt)
setPath :: !Pathname !*GeneralSt -> *GeneralSt
getProjectFilePath :: !*GeneralSt -> (!Pathname,!*GeneralSt)
setProjectFilePath :: !Pathname !*GeneralSt -> *GeneralSt
getStup :: !*GeneralSt -> (!Pathname,!*GeneralSt)
......
......@@ -49,7 +49,7 @@ instance FileEnv GeneralSt where
:: *General =
{ prefs :: !Prefs
, project :: !Project
, cache :: !*(Maybe !*ABCCache)
, cache :: !*(Maybe *ABCCache)
, fi_cache :: !(Maybe FileInfoCache)
, pr_path :: !Pathname // proj_path
, stup :: !Pathname // appl_path
......@@ -124,11 +124,11 @@ getFICache ps = accPLoc (\p=:{fi_cache = Just fi_cache}->(fi_cache,{p & fi_cache
setFICache :: !FileInfoCache !*GeneralSt -> *GeneralSt
setFICache ac ps = appPLoc (\p->{p & fi_cache = Just ac}) ps
getPath :: !*GeneralSt -> (!Pathname,!*GeneralSt)
getPath ps = ps!ls.pr_path
getProjectFilePath :: !*GeneralSt -> (!Pathname,!*GeneralSt)
getProjectFilePath ps = ps!ls.pr_path
setPath :: !Pathname !*GeneralSt -> *GeneralSt
setPath path ps = {ps & ls.pr_path = path}
setProjectFilePath :: !Pathname !*GeneralSt -> *GeneralSt
setProjectFilePath path ps = {ps & ls.pr_path = path}
getStup :: !*GeneralSt -> (!Pathname,!*GeneralSt)
getStup ps = ps!ls.stup
......
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