summaryrefslogtreecommitdiff
path: root/Assistant
diff options
context:
space:
mode:
authorGravatar Joey Hess <joey@kitenet.net>2013-03-12 22:18:36 -0400
committerGravatar Joey Hess <joey@kitenet.net>2013-03-12 22:18:36 -0400
commit31ff69b0260f1ea856aff3fb8b56c4d99e15069b (patch)
tree85953569118c4c2c3a1c366c013d50e885448287 /Assistant
parent218173192e2ab0035cca8e08877c211ab00ce848 (diff)
gratuitous rename HomeR -> DashboardR
Diffstat (limited to 'Assistant')
-rw-r--r--Assistant/Threads/WebApp.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs
index 4036c5309..294e7cab1 100644
--- a/Assistant/Threads/WebApp.hs
+++ b/Assistant/Threads/WebApp.hs
@@ -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