{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Text.Lazy as T
import Web.Scotty
import Web.Scotty.Fay
main :: IO ()
main = scotty 3000 $ do
serveFay $
-- If the first segment of the request path matches this, try to serve
-- Fay. Otherwise try the next route.
under "/scotty-fay" .
-- Specify the directory where your Fay files are.
from "src/fay"
get "/" $ do
let (+>) = T.append -- just to make it shorter
html $
"" +>
"" +>
"" +>
"" +>
"" +>
"lol
" +>
""