remove unnecessary !'s

412d9aca · John van Groningen · 5f023483 · 412d9aca · 412d9aca
Commit 412d9aca authored Jul 13, 2010 by John van Groningen
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 6 deletions

BatchBuild/IdeState.dcl BatchBuild/IdeState.dcl +3 -3

BatchBuild/IdeState.icl BatchBuild/IdeState.icl +3 -3

No files found.
--- a/BatchBuild/IdeState.dcl
+++ b/BatchBuild/IdeState.dcl
@@ -49,14 +49,14 @@ getFICache :: !*GeneralSt -> (FileInfoCache,*GeneralSt)
 setFICache :: !FileInfoCache !*GeneralSt -> *GeneralSt

 getPath :: !*GeneralSt -> (!Pathname,!*GeneralSt)
-setPath :: !Pathname !*GeneralSt -> !*GeneralSt
+setPath :: !Pathname !*GeneralSt -> *GeneralSt

 getStup :: !*GeneralSt -> (!Pathname,!*GeneralSt)

 getTargets :: !*GeneralSt -> (![Target],!*GeneralSt)
-setTargets :: ![Target] !*GeneralSt -> !*GeneralSt
+setTargets :: ![Target] !*GeneralSt -> *GeneralSt
 getCurrentTarget :: !*GeneralSt -> (!Int,!*GeneralSt)
-setCurrentTarget :: !Int !*GeneralSt -> !*GeneralSt
+setCurrentTarget :: !Int !*GeneralSt -> *GeneralSt
 getCurrentPaths :: !*GeneralSt -> (!(List Pathname),!*GeneralSt)
 getCurrentDlibs :: !*GeneralSt -> (!(List String),!*GeneralSt)
 getCurrentSlibs :: !*GeneralSt -> (!(List String),!*GeneralSt)

--- a/BatchBuild/IdeState.icl
+++ b/BatchBuild/IdeState.icl
@@ -127,7 +127,7 @@ setFICache ac ps = appPLoc (\p->{p & fi_cache = Just ac}) ps
 getPath :: !*GeneralSt -> (!Pathname,!*GeneralSt)
 getPath ps = ps!ls.pr_path

-setPath :: !Pathname !*GeneralSt -> !*GeneralSt
+setPath :: !Pathname !*GeneralSt -> *GeneralSt
 setPath path ps = {ps & ls.pr_path = path}

 getStup :: !*GeneralSt -> (!Pathname,!*GeneralSt)
@@ -138,13 +138,13 @@ getStup ps = ps!ls.stup
 getTargets :: !*GeneralSt -> (![Target],!*GeneralSt)
 getTargets ps = accPLoc (\p=:{pm_targets}->(pm_targets,p)) ps

-setTargets :: ![Target] !*GeneralSt -> !*GeneralSt
+setTargets :: ![Target] !*GeneralSt -> *GeneralSt
 setTargets ts ps = appPLoc (\p->{p & pm_targets = ts}) ps

 getCurrentTarget :: !*GeneralSt -> (!Int,!*GeneralSt)
 getCurrentTarget ps = accPLoc (\p=:{pm_curtarg}->(pm_curtarg,p)) ps

-setCurrentTarget :: !Int !*GeneralSt -> !*GeneralSt
+setCurrentTarget :: !Int !*GeneralSt -> *GeneralSt
 setCurrentTarget tg ps
 	= appPLoc (\p->{p & pm_curtarg = tg}) ps