Commit 0ae69ec6 authored by ecrombag's avatar ecrombag

Minor bug fixes in the list-specialization

git-svn-id: https://svn.cs.ru.nl/repos/iTask-system/trunk@716 63da3aa8-80fd-4f01-9db8-e6ea747a3da2
parent 01e02b2d
......@@ -272,7 +272,7 @@ where
# gEl = [e \\ e <- m | tlGr e [i:p]]
# lEl = [e \\ e <- m | not (tlEq e [i:p] || tlGr e [i:p])]
# idx = length p
= lEl ++ [shiftUpAt e idx \\ e <- gEl]
= lEl ++ [reverse(shiftUpAt (reverse e) idx) \\ e <- gEl]
tlGr e i = tlGr` (reverse e) (reverse i)
tlGr` [] _ = False
......
......@@ -474,11 +474,11 @@ gVisualize {|[]|} fx old new vst=:{vizType,idPrefix,currentPath,useLabels,label,
where
vizEditor fx [] mask pfx index vst = ([],vst)
vizEditor fx [x:xs] mask pfx index vst
# (vx,vst) = fx (VValue x mask) (VValue x mask) vst
vizEditor fx [x:xs] mask pfx index vst=:{label}
# (vx,vst) = fx (VValue x mask) (VValue x mask) {VSt | vst & label = Nothing} //Don't display any labels.
# tx = [(TUIListItem {TUIListItem | items=coerceToTUIDefs vx, id=pfx+++"_"+++toString index})]
# (txs,vst) = vizEditor fx xs mask pfx (index+1) vst
= ([tx:txs],vst)
= ([tx:txs],{VSt | vst & label = label})
vizStatic fx [] mask vst = ([],vst)
vizStatic fx [x:xs] mask vst
......
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