Data hosted with ♥ by Pastebin.com - Download Raw - See Original
  1. ------------------------------------------------------------------------------
  2. -- | Handle main site
  3. handleHelloWorld :: Handler App App ()
  4. handleHelloWorld = do
  5.   writeText "<h1>Hello world!</h1>"
  6.   writeText "This is my first site."