log alerts in notice mode, which is enabled by default

1 files changed, 14 insertions, 3 deletions

diff --git a/Assistant/Types/NamedThread.hs b/Assistant/Types/NamedThread.hs
index 569f787d1..0e122c097 100644
--- a/Assistant/Types/NamedThread.hs
+++ b/Assistant/Types/NamedThread.hs
@@ -5,7 +5,12 @@
  - Licensed under the GNU GPL version 3 or higher.
  -}
 
-module Assistant.Types.NamedThread where
+module Assistant.Types.NamedThread (
+	ThreadName,
+	NamedThread(..),
+	debug,
+	notice,
+) where
 
 import Common.Annex
 import Assistant.Monad
@@ -16,6 +21,12 @@ type ThreadName = String
 data NamedThread = NamedThread ThreadName (Assistant ())
 
 debug :: [String] -> Assistant ()
-debug ws = do
+debug = logaction debugM
+
+notice :: [String] -> Assistant ()
+notice = logaction noticeM
+
+logaction :: (String -> String -> IO ()) -> [String] -> Assistant ()
+logaction a ws = do
 	name <- getAssistant threadName
-	liftIO $ debugM name $ unwords $ (name ++ ":") : ws
+	liftIO $ a name $ unwords $ (name ++ ":") : ws