From 44d7913686ccfef4e6cbd0fdc2b5611aa944ec70 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Sat, 26 Jan 2013 14:14:32 +1100 Subject: use async to track and manage threads --- Assistant/Types/NamedThread.hs | 32 -------------------------------- 1 file changed, 32 deletions(-) delete mode 100644 Assistant/Types/NamedThread.hs (limited to 'Assistant/Types/NamedThread.hs') diff --git a/Assistant/Types/NamedThread.hs b/Assistant/Types/NamedThread.hs deleted file mode 100644 index 0e122c097..000000000 --- a/Assistant/Types/NamedThread.hs +++ /dev/null @@ -1,32 +0,0 @@ -{- git-annex assistant named threads. - - - - Copyright 2012 Joey Hess - - - - Licensed under the GNU GPL version 3 or higher. - -} - -module Assistant.Types.NamedThread ( - ThreadName, - NamedThread(..), - debug, - notice, -) where - -import Common.Annex -import Assistant.Monad - -import System.Log.Logger - -type ThreadName = String -data NamedThread = NamedThread ThreadName (Assistant ()) - -debug :: [String] -> Assistant () -debug = logaction debugM - -notice :: [String] -> Assistant () -notice = logaction noticeM - -logaction :: (String -> String -> IO ()) -> [String] -> Assistant () -logaction a ws = do - name <- getAssistant threadName - liftIO $ a name $ unwords $ (name ++ ":") : ws -- cgit v1.2.3