Assistant monad, stage 1

This adds the Assistant monad, and an AssistantData structure.
So far, none of the assistant's threads run in the monad yet.
This commit is contained in:
Joey Hess 2012-10-29 00:15:43 -04:00
parent ec0bac9d73
commit 4e765327ca
18 changed files with 259 additions and 210 deletions

View file

@ -101,8 +101,8 @@ repoList onlyconfigured includehere
| otherwise = list =<< (++) <$> configured <*> rest
where
configured = do
rs <- filter (not . Remote.readonly) . syncRemotes <$>
(liftIO . getDaemonStatus =<< daemonStatus <$> getYesod)
rs <- filter (not . Remote.readonly) . syncRemotes
<$> getDaemonStatusY
runAnnex [] $ do
u <- getUUID
let l = map Remote.uuid rs