We planned to upgrade GitLab and Mattermost to the latest version this Friday morning (early). You may experience some downtime!

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