Commit 412d9aca authored by John van Groningen's avatar John van Groningen

remove unnecessary !'s

parent 5f023483
......@@ -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)
......
......@@ -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
......
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