aboutsummaryrefslogtreecommitdiff
path: root/Assistant.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2014-10-09 15:35:19 -0400
committerGravatar Joey Hess <joey@kitenet.net>2014-10-09 15:46:05 -0400
commitf3d197128322981d58677ba165f7d33158e07940 (patch)
treed73f043118c4b50313fc8475222df6245eac2beb /Assistant.hs
parentcfc51c5e4ec04f9d5088c42922217cf90b63c903 (diff)
hlint
Diffstat (limited to 'Assistant.hs')
-rw-r--r--Assistant.hs30
1 files changed, 15 insertions, 15 deletions
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