diff options
Diffstat (limited to 'Assistant')
-rw-r--r-- | Assistant/Common.hs | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/Assistant/Common.hs b/Assistant/Common.hs index b46d3342a..30c73de43 100644 --- a/Assistant/Common.hs +++ b/Assistant/Common.hs @@ -10,8 +10,7 @@ module Assistant.Common ( ThreadName, NamedThread(..), runNamedThread, - debug, - brokendebug + debug ) where import Common.Annex as X @@ -25,9 +24,6 @@ import qualified Control.Exception as E type ThreadName = String data NamedThread = NamedThread ThreadName (Assistant ()) -brokendebug :: ThreadName -> [String] -> IO () -brokendebug _ _ = noop -- TODO remove this - debug :: [String] -> Assistant () debug ws = do name <- getAssistant threadName |