{-# LANGUAGE OverloadedStrings #-}

import Data.Monoid ((<>))
import Web.Scotty

import Templates

main :: IO ()
main = do
  scotty 3000 $ do
    get "/" $ do
      html $ page "stuff" (return ())
    get (regex "^/u:([A-Za-z]*)$") $ do
      user <- param "1"
      text $ "got: " <> user