summaryrefslogtreecommitdiff
path: root/Assistant.hs
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2012-06-22 13:04:03 -0400
committerGravatar Joey Hess <joey@kitenet.net>2012-06-22 13:04:03 -0400
commit3ee44cf8feb11fc439c02eb0eb8f12d290b01120 (patch)
tree41f68e6ad947af83134ad967442cc77e199c70f9 /Assistant.hs
parentcf9bf920e8052edbcee9dd31bfb1c9b421296d14 (diff)
add assistant command
like watch, but more magic
Diffstat (limited to 'Assistant.hs')
-rw-r--r--Assistant.hs6
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant.hs b/Assistant.hs
index e924d9477..33c7cef36 100644
--- a/Assistant.hs
+++ b/Assistant.hs
@@ -55,10 +55,10 @@ import Utility.LogFile
import Control.Concurrent
-startDaemon :: Bool -> Annex ()
-startDaemon foreground
+startDaemon :: Bool -> Bool -> Annex ()
+startDaemon assistant foreground
| foreground = do
- showStart "watch" "."
+ showStart (if assistant then "assistant" else "watch") "."
go id
| otherwise = do
logfd <- liftIO . openLog =<< fromRepo gitAnnexLogFile