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.

Assistant/WebApp/Configurators.hs

@@ -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