mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

cleanup daemonStatus accessors

Browse source
This commit is contained in:
Joey Hess 2012-10-30 14:44:18 -04:00
parent 68118b8986
commit ea8df8fe9f
15 changed files with 29 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

3
Assistant/WebApp/Configurators.hs
View file

@ -10,6 +10,7 @@
module Assistant.WebApp.Configurators where
import Assistant.Common
import Assistant.DaemonStatus
import Assistant.WebApp
import Assistant.WebApp.Types
import Assistant.WebApp.SideBar
@ -101,7 +102,7 @@ repoList onlyconfigured includehere
where
configured = do
rs <- filter (not . Remote.readonly) . syncRemotes
<$> getDaemonStatusY
<$> runAssistantY getDaemonStatus
runAnnex [] $ do
u <- getUUID
let l = map Remote.uuid rs