diff options
Diffstat (limited to 'Assistant')
| -rw-r--r-- | Assistant/Threads/WebApp.hs | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index d7d5c2602..1bab94b0f 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -83,7 +83,7 @@ webAppThread mst dstatus scanremotes transferqueue transferslots urlrenderer pos =<< runThreadState st (fromRepo repoPath)) go port webapp htmlshim = do writeHtmlShim webapp port htmlshim - maybe noop (\a -> a (myUrl webapp port "/") htmlshim) onstartup + maybe noop (\a -> a (myUrl webapp port HomeR) htmlshim) onstartup {- Creates a html shim file that's used to redirect into the webapp, - to avoid exposing the secretToken when launching the web browser. -} @@ -113,8 +113,9 @@ genHtmlShim webapp port = unlines , "</html>" ] where - url = myUrl webapp port "/" + url = myUrl webapp port HomeR -myUrl :: WebApp -> PortNumber -> FilePath -> Url -myUrl webapp port page = "http://localhost:" ++ show port ++ page ++ - "?auth=" ++ unpack (secretToken webapp) +myUrl :: WebApp -> PortNumber -> Route WebApp -> Url +myUrl webapp port route = unpack $ yesodRender webapp urlbase route [] + where + urlbase = pack $ "http://localhost:" ++ show port |