render webapp staitc file url using yesod
This commit is contained in:
parent
e59b0a1c88
commit
7c70c89ee7
1 changed files with 6 additions and 5 deletions
|
@ -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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue