From b89b8015677febfb905bf1fd50546dc981d83ded Mon Sep 17 00:00:00 2001
From: Joey Hess <joey@kitenet.net>
Date: Thu, 26 Jul 2012 05:20:52 -0400
Subject: update

---
 Assistant/Threads/WebApp.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'Assistant/Threads/WebApp.hs')

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
-- 
cgit v1.2.3