Skip to content
Find file
Fetching contributors…
Cannot retrieve contributors at this time
19 lines (13 sloc) 287 Bytes
import Yesod
data HelloWorld = HelloWorld
mkYesod "HelloWorld" [parseRoutes|
/ HomeR GET
instance Yesod HelloWorld
getHomeR :: Handler RepHtml
getHomeR = defaultLayout [whamlet|
<h3>Hello World!
<p> This is my first web page
main :: IO ()
main = warpDebug 3000 HelloWorld
Something went wrong with that request. Please try again.