diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-03-12 22:18:36 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-03-12 22:18:36 -0400 |
| commit | 31ff69b0260f1ea856aff3fb8b56c4d99e15069b (patch) | |
| tree | 85953569118c4c2c3a1c366c013d50e885448287 | |
| parent | 218173192e2ab0035cca8e08877c211ab00ce848 (diff) | |
gratuitous rename HomeR -> DashboardR
| -rw-r--r-- | Assistant/Threads/WebApp.hs | 2 |
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 |