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