main :: IO ()
main = scottyH' 3000 $ do
  setTemplatesDir "templates"

  get "/:word" $ do
    beam <- param "word"
    setH "action" $ MuVariable (beam :: String)
    hastache "greet.html"
main :: IO ()
main = scottyH' 3000 $ do
  setTemplatesDir "templates"

  get "/:word" $ do
    beam <- param "word"
    setH "action" $ MuVariable (beam :: String)
    hastache "greet.html"
main = scottyH' 3000 $ do
  setTemplatesDir "templates"

  get "/:word" $ do
    beam <- param "word"
    setH "action" $ MuVariable (beam :: String)
    hastache "greet.html"