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
|
||||
ensure [] rs = return rs
|
||||
ensure (l:ls) rs = do
|
||||
putStr $ propertyDesc l ++ "... "
|
||||
hFlush stdout
|
||||
r <- ensureProperty l
|
||||
clearFromCursorToLineBeginning
|
||||
setCursorColumn 0
|
||||
|
|
Loading…
Reference in New Issue