mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

remove brokendebug

Browse source
This commit is contained in:
Joey Hess 2012-10-29 16:23:22 -04:00
parent 5d57b28a34
commit 805ef65679
1 changed files with 1 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/Common.hs
View file

@ -10,8 +10,7 @@ module Assistant.Common (
ThreadName, ThreadName,
NamedThread(..), NamedThread(..),
runNamedThread, runNamedThread,
debug, debug
brokendebug
) where ) where
import Common.Annex as X import Common.Annex as X
@ -25,9 +24,6 @@ import qualified Control.Exception as E
type ThreadName = String type ThreadName = String
data NamedThread = NamedThread ThreadName (Assistant ()) data NamedThread = NamedThread ThreadName (Assistant ())
brokendebug :: ThreadName -> [String] -> IO ()
brokendebug _ _ = noop -- TODO remove this
debug :: [String] -> Assistant () debug :: [String] -> Assistant ()
debug ws = do debug ws = do
name <- getAssistant threadName name <- getAssistant threadName