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

gratuitous rename HomeR -> DashboardR

Browse source
This commit is contained in:
Joey Hess 2013-03-12 22:18:36 -04:00
parent aa19dd263a
commit 0ef8d806ac
9 changed files with 18 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

2
Assistant/Threads/WebApp.hs
View file

@ -88,6 +88,6 @@ webAppThread assistantdata urlrenderer noannex postfirstrun onstartup = thread $
maybe noop (\a -> a url htmlshim) onstartup
myUrl :: WebApp -> SockAddr -> Url
myUrl webapp addr = unpack $ yesodRender webapp urlbase HomeR []
myUrl webapp addr = unpack $ yesodRender webapp urlbase DashboardR []
where
urlbase = pack $ "http://" ++ show addr