rnhmjoj/scat
1
0
Fork 0
mirror of https://github.com/redelmann/scat synced 2025-01-10 06:34:20 +01:00
Code Issues Releases Wiki Activity

Fixed bug: Scat did not respect the --silent flag during code erasure.

Browse Source
This commit is contained in:
Romain Edelmann 2013-08-13 01:15:03 +02:00
parent e27df25307
commit ea80ccb678
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
src/Scat.hs
View File

@ -105,7 +105,8 @@ prompt vis str = do
(hSetEcho stdin $ shouldShow vis) (hSetEcho stdin $ shouldShow vis)
(hSetEcho stdin old) (hSetEcho stdin old)
C.getLine C.getLine
when (shouldErase vis) $ liftIO $ do v <- fmap verbose ask
when (shouldErase vis && v) $ liftIO $ do
cursorUpLine 1 cursorUpLine 1
cursorForward $ length str cursorForward $ length str
clearFromCursorToScreenEnd clearFromCursorToScreenEnd