From d9ebdfca13bfb34abc25249d205cd9146ae52435 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 13 Oct 2010 15:26:48 +0200
Subject: [PATCH] hellowidget working again

---
 hellowidget.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/hellowidget.hs b/hellowidget.hs
index 6177d172..11bf855f 100644
--- a/hellowidget.hs
+++ b/hellowidget.hs
@@ -27,8 +27,11 @@ instance Yesod HW where
         liftIO $ L.writeFile ("static/tmp/" ++ fn) content
         return $ Just $ Right (StaticR $ StaticRoute ["tmp", fn] [], [])
 
+type Handler = GHandler HW HW
+
 instance YesodNic HW
-instance YesodJquery HW
+instance YesodJquery HW where
+    urlJqueryUiCss _ = Right $ googleHostedJqueryUiCss "ui-darkness"
 wrapper h = [$hamlet|
 #wrapper ^h^
 %footer Brought to you by Yesod Widgets&trade;
@@ -109,7 +112,7 @@ textarea.html
 
 main = basicHandler 3000 $ HW $ fileLookupDir "static" typeByExt
 
-getAutoCompleteR :: Handler HW RepJson
+getAutoCompleteR :: Handler RepJson
 getAutoCompleteR = do
     term <- runFormGet' $ stringInput "term"
     jsonToRepJson $ jsonList