Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- {-# LANGUAGE QuasiQuotes #-}
- {-# LANGUAGE TemplateHaskell #-}
- {-# LANGUAGE TypeFamilies #-}
- import Yesod
- data HelloWorld = HelloWorld
- mkYesod "HelloWorld" [parseRoutes|
- / HomeR GET
- |]
- instance Yesod HelloWorld
- getHomeR :: Handler Html
- getHomeR = defaultLayout [whamlet|Hello World!|]
- main :: IO ()
- main = warp 3000 HelloWorld
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement