update
This commit is contained in:
parent
6cecc26206
commit
b89b801567
2 changed files with 4 additions and 4 deletions
|
@ -38,9 +38,9 @@ data WebApp = WebApp
|
|||
staticFiles "static"
|
||||
|
||||
mkYesod "WebApp" [parseRoutes|
|
||||
/static StaticR Static getStatic
|
||||
/ HomeR GET
|
||||
/config ConfigR GET
|
||||
/static StaticR Static getStatic
|
||||
|]
|
||||
|
||||
instance Yesod WebApp where
|
||||
|
@ -62,12 +62,12 @@ instance Yesod WebApp where
|
|||
|
||||
getHomeR :: Handler RepHtml
|
||||
getHomeR = defaultLayout $ do
|
||||
[whamlet|Hello, World<p><a href=@{ConfigR}>config|]
|
||||
[whamlet|Hello, World<p><a href="@{ConfigR}">config|]
|
||||
|
||||
getConfigR :: Handler RepHtml
|
||||
getConfigR = defaultLayout $ do
|
||||
setTitle "configuration"
|
||||
[whamlet|<a href=@{HomeR}>main|]
|
||||
[whamlet|<a href="@{HomeR}">main|]
|
||||
|
||||
webAppThread :: ThreadState -> DaemonStatusHandle -> IO ()
|
||||
webAppThread st dstatus = do
|
||||
|
|
|
@ -4,7 +4,7 @@ The webapp is a web server that displays a shiny interface.
|
|||
|
||||
* Listen only to localhost. **done**
|
||||
* Instruct the user's web browser to open an url that contains a secret
|
||||
token. This guards against other users on the same system.
|
||||
token. This guards against other users on the same system. **done**
|
||||
* I would like to avoid passwords or other authentication methods,
|
||||
it's your local system.
|
||||
* Alternative for Linux at least would be to write a small program using
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue