Commit 13c25c46 authored by Bas Lijnse's avatar Bas Lijnse

small addition to SAR example

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@956 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent a3866bb9
......@@ -43,6 +43,11 @@ manageIncident = return Void
deploySARHeli :: Task Void
deploySARHeli = return Void
// Incident database
createIncident :: Task IncidentNR
createIncident = getDefaultValue >>= dbCreateItem >>= \i -> return i.incidentNr
// Logging
addLogEntry :: IncidentNR Note -> Task Void
addLogEntry incident message
......@@ -53,7 +58,7 @@ addLogEntry incident message
viewLog :: IncidentNR -> Task Void
viewLog incident
= readDB databaseId
= readDB databaseId
>>= \logs ->
showMessageAbout ("Log for incident " +++ toString incident) [l \\ l <- logs | l.LogEntry.incident == incident]
......
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