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