setMonitorPropertyValue :: Monitor -> String -> String -> <WriteGraph> ()
setMonitorPropertyValue monitor property newValue = do
- monitorUri = uriOf (toResource monitor)
+ monitorUri = uriOf monitor
completeUri = monitorUri + "#" + property + "#HasDisplayValue"
propertyVariable = variable completeUri
setValue propertyVariable newValue
setFlagTablePropertyValue :: FlagTable -> String -> String -> <WriteGraph> ()
setFlagTablePropertyValue flagTable property newValue = do
- flagTableUri = uriOf (toResource flagTable)
+ flagTableUri = uriOf flagTable
completeUri = flagTableUri + "#" + property + "#HasDisplayValue"
propertyVariable = variable completeUri
setValue propertyVariable newValue