From 31ff69b0260f1ea856aff3fb8b56c4d99e15069b Mon Sep 17 00:00:00 2001 From: Joey Hess Date: Tue, 12 Mar 2013 22:18:36 -0400 Subject: gratuitous rename HomeR -> DashboardR --- Assistant/Threads/WebApp.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'Assistant/Threads') 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 -- cgit v1.2.3