From a91d5e3c8ad282ed381b8847a09c8c43be472ef2 Mon Sep 17 00:00:00 2001 From: John van Groningen Date: Tue, 9 Nov 2010 14:13:24 +0000 Subject: [PATCH] rename getPath and setPath as getProjectFilePath and setProjectFilePath --- BatchBuild/IdeState.dcl | 4 ++-- BatchBuild/IdeState.icl | 10 +++++----- 2 files changed, 7 insertions(+), 7 deletions(-) diff --git a/BatchBuild/IdeState.dcl b/BatchBuild/IdeState.dcl index b0d5191..ab3026a 100644 --- a/BatchBuild/IdeState.dcl +++ b/BatchBuild/IdeState.dcl @@ -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) diff --git a/BatchBuild/IdeState.icl b/BatchBuild/IdeState.icl index 1d214d7..e7d0ff2 100644 --- a/BatchBuild/IdeState.icl +++ b/BatchBuild/IdeState.icl @@ -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 -- GitLab