don't print property when starting
This caused problems when properties were nested with listProperties. Would print "outer ... inner ..." etc.
This commit is contained in:
parent
4398327dd1
commit
912e61ce1f
|
@ -98,8 +98,6 @@ ensureProperties' ps = ensure ps NoChange
|
||||||
where
|
where
|
||||||
ensure [] rs = return rs
|
ensure [] rs = return rs
|
||||||
ensure (l:ls) rs = do
|
ensure (l:ls) rs = do
|
||||||
putStr $ propertyDesc l ++ "... "
|
|
||||||
hFlush stdout
|
|
||||||
r <- ensureProperty l
|
r <- ensureProperty l
|
||||||
clearFromCursorToLineBeginning
|
clearFromCursorToLineBeginning
|
||||||
setCursorColumn 0
|
setCursorColumn 0
|
||||||
|
|
Loading…
Reference in New Issue