diff options
author | Joey Hess <joey@kitenet.net> | 2012-07-26 05:20:52 -0400 |
---|---|---|
committer | Joey Hess <joey@kitenet.net> | 2012-07-26 05:20:52 -0400 |
commit | b89b8015677febfb905bf1fd50546dc981d83ded (patch) | |
tree | f7a2e773081745d8ed5eec6f1eecd1a55ac020cd /Assistant/Threads/WebApp.hs | |
parent | 6cecc26206c4a539999b04664136c6f785211a41 (diff) |
update
Diffstat (limited to 'Assistant/Threads/WebApp.hs')
-rw-r--r-- | Assistant/Threads/WebApp.hs | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Assistant/Threads/WebApp.hs b/Assistant/Threads/WebApp.hs index 50add3735..3e53828af 100644 --- a/Assistant/Threads/WebApp.hs +++ b/Assistant/Threads/WebApp.hs @@ -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 |