Revert "use existing debug machinery for explain"
This reverts commit 409572c9e4
.
This commit is contained in:
parent
409572c9e4
commit
cf40e2d4b6
3 changed files with 16 additions and 49 deletions
|
@ -50,7 +50,6 @@ module Messages (
|
|||
outputMessage,
|
||||
withMessageState,
|
||||
MessageState,
|
||||
explain,
|
||||
prompt,
|
||||
mkPrompter,
|
||||
sanitizeTopLevelExceptionMessages,
|
||||
|
@ -282,11 +281,6 @@ debugDisplayer = do
|
|||
S.hPutStr stderr (safeOutput s <> "\n")
|
||||
hFlush stderr
|
||||
|
||||
explain :: Maybe String -> String -> Annex ()
|
||||
explain Nothing _ = return ()
|
||||
explain (Just f) msg = fastDebug' "explain" $
|
||||
RawDebugMessage ('[' : f ++ " " ++ msg ++ "]")
|
||||
|
||||
{- Should commands that normally output progress messages have that
|
||||
- output disabled? -}
|
||||
commandProgressDisabled :: Annex Bool
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue