mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

update

Browse source
This commit is contained in:
Joey Hess 2012-07-26 05:20:52 -04:00
parent 6cecc26206
commit b89b801567
2 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Assistant/Threads/WebApp.hs
View file

@ -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