remove unnecessary !'s

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)

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