aboutsummaryrefslogtreecommitdiff
path: root/Assistant/Common.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-10-29 16:23:22 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-10-29 16:23:22 -0400
commit9d4c809c68d168614d1a0e8ae4a18799fb6ea91f (patch)
tree5711199c24902b28ac19ef236735b01c6edef131 /Assistant/Common.hs
parent47f4506a1ed1d98d3bdae0de24e00f2eb64611da (diff)
remove brokendebug
Diffstat (limited to 'Assistant/Common.hs')
-rw-r--r--Assistant/Common.hs6
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