haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

hellowidget working again

Browse Source
This commit is contained in:
Michael Snoyman 2010-10-13 15:26:48 +02:00
parent fde19d6291
commit d9ebdfca13
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
hellowidget.hs
View File

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