From f3d197128322981d58677ba165f7d33158e07940 Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Thu, 9 Oct 2014 15:35:19 -0400 Subject: hlint --- Assistant.hs | 30 +++++++++++++++--------------- 1 file changed, 15 insertions(+), 15 deletions(-) (limited to 'Assistant.hs') diff --git a/Assistant.hs b/Assistant.hs index b7e2463fa..2ba778d80 100644 --- a/Assistant.hs +++ b/Assistant.hs @@ -147,7 +147,7 @@ startDaemon assistant foreground startdelay cannotrun listenhost startbrowser = let threads = if isJust cannotrun then webappthread else webappthread ++ - [ watch $ commitThread + [ watch commitThread #ifdef WITH_WEBAPP #ifdef WITH_PAIRING , assist $ pairListenerThread urlrenderer @@ -158,29 +158,29 @@ startDaemon assistant foreground startdelay cannotrun listenhost startbrowser = , assist $ xmppReceivePackThread urlrenderer #endif #endif - , assist $ pushThread - , assist $ pushRetryThread - , assist $ mergeThread - , assist $ transferWatcherThread - , assist $ transferPollerThread - , assist $ transfererThread - , assist $ remoteControlThread - , assist $ daemonStatusThread + , assist pushThread + , assist pushRetryThread + , assist mergeThread + , assist transferWatcherThread + , assist transferPollerThread + , assist transfererThread + , assist remoteControlThread + , assist daemonStatusThread , assist $ sanityCheckerDailyThread urlrenderer - , assist $ sanityCheckerHourlyThread + , assist sanityCheckerHourlyThread , assist $ problemFixerThread urlrenderer #ifdef WITH_CLIBS , assist $ mountWatcherThread urlrenderer #endif - , assist $ netWatcherThread + , assist netWatcherThread , assist $ upgraderThread urlrenderer , assist $ upgradeWatcherThread urlrenderer - , assist $ netWatcherFallbackThread + , assist netWatcherFallbackThread , assist $ transferScannerThread urlrenderer , assist $ cronnerThread urlrenderer - , assist $ configMonitorThread - , assist $ glacierThread - , watch $ watchThread + , assist configMonitorThread + , assist glacierThread + , watch watchThread -- must come last so that all threads that wait -- on it have already started waiting , watch $ sanityCheckerStartupThread startdelay -- cgit v1.2.3