eliminate showStart showStartOther
These were not handling control characters and are redundant. Sponsored-by: Jack Hill on Patreon
This commit is contained in:
parent
3290a09a70
commit
a0e6fa18eb
7 changed files with 22 additions and 39 deletions
|
@ -196,7 +196,7 @@ same a b
|
|||
{- reads the config of a remote, with progress display -}
|
||||
scan :: Git.Repo -> Annex Git.Repo
|
||||
scan r = do
|
||||
showStartOther "map" (Just $ Git.repoDescribe r) (SeekInput [])
|
||||
showStartMessage (StartMessage "map" (ActionItemOther (Just $ UnquotedString $ Git.repoDescribe r)) (SeekInput []))
|
||||
v <- tryScan r
|
||||
case v of
|
||||
Just r' -> do
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue