friedbrice/main.hs

## main.hs
{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings #-}
import Yesod
import Yesod.Core.Handler

data HelloWorld = HelloWorld

mkYesod "HelloWorld" [parseRoutes|
/ HomeR GET
|]

instance Yesod HelloWorld

content = take (3 * 1024) $ repeat 'a'

getHomeR :: Handler RepHtml
getHomeR = hamletToRepHtml [hamlet|
$doctype 5
<html lang="en">
    <head>
         <body>
              <p>#{content}
|]

main :: IO ()
main = warp 3000 HelloWorld
	{-# LANGUAGE TypeFamilies, QuasiQuotes, MultiParamTypeClasses, TemplateHaskell, OverloadedStrings #-}
	import Yesod
	import Yesod.Core.Handler

	data HelloWorld = HelloWorld

	mkYesod "HelloWorld" [parseRoutes\|
	/ HomeR GET
	\|]

	instance Yesod HelloWorld

	content = take (3 * 1024) $ repeat 'a'

	getHomeR :: Handler RepHtml
	getHomeR = hamletToRepHtml [hamlet\|
	$doctype 5
	<html lang="en">
	<head>
	<body>
	<p>#{content}
	\|]

	main :: IO ()
	main = warp 3000 HelloWorld