Commit 56fb27b3 authored by ecrombag's avatar ecrombag

Forgot to remove trace statements

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@1153 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 445101de
......@@ -23,8 +23,8 @@ visualizeAsEditor name mbSubIdx umask vmask x
Nothing = vst
Just idx = {VSt| vst & currentPath = dataPathSetSubEditorIdx vst.VSt.currentPath idx}
# (defs,vst=:{VSt | valid}) = gVisualize{|*|} val val vst
= trace_n("==UMASK==\n"+++toString (toJSON umask) +++ "\n==VMASK==\n" +++ toString (toJSON vmask)+++"\n") (coerceToTUIDefs defs, valid)
//= (coerceToTUIDefs defs, valid)
//= trace_n("==UMASK==\n"+++toString (toJSON umask) +++ "\n==VMASK==\n" +++ toString (toJSON vmask)+++"\n") (coerceToTUIDefs defs, valid)
= (coerceToTUIDefs defs, valid)
where
val = VValue x
......@@ -57,8 +57,8 @@ determineEditorUpdates name mbSubIdx updatedPaths umask vmask old new
Nothing = vst
Just idx = {VSt| vst & currentPath = dataPathSetSubEditorIdx vst.VSt.currentPath idx}
# (updates,vst=:{VSt | valid}) = (gVisualize{|*|} (VValue old) (VValue new) vst)
= trace_n("==UMASK==\n"+++toString (toJSON umask) +++ "\n==VMASK==\n" +++ toString (toJSON vmask)+++"\n") (coerceToTUIUpdates updates, valid)
//= (coerceToTUIUpdates updates, valid)
//= trace_n("==UMASK==\n"+++toString (toJSON umask) +++ "\n==VMASK==\n" +++ toString (toJSON vmask)+++"\n") (coerceToTUIUpdates updates, valid)
= (coerceToTUIUpdates updates, valid)
//Bimap for visualization values
derive bimap VisualizationValue
......
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