Revert "use existing debug machinery for explain"

This reverts commit 409572c9e4.
This commit is contained in:
Joey Hess 2023-07-25 15:53:50 -04:00
parent 409572c9e4
commit cf40e2d4b6
No known key found for this signature in database
GPG key ID: DB12DB0FF05F8F38
3 changed files with 16 additions and 49 deletions

View file

@ -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