mirror of
https://github.com/aelve/guide.git
synced 2024-11-26 03:08:37 +03:00
19 lines
530 B
Markdown
19 lines
530 B
Markdown
{-# LANGUAGE OverloadedStrings #-}
|
|
|
|
module Main where
|
|
|
|
import {{Hackage}}[Data.Monoid] ((<>))
|
|
import {{Hackage}}[Web.Spock]
|
|
import {{Hackage}}[Web.Spock.Config]
|
|
|
|
main :: IO ()
|
|
main = do
|
|
config <- defaultSpockCfg () PCNoDatabase ()
|
|
runSpock 8080 $ spock config app
|
|
|
|
app :: SpockM () () () ()
|
|
app = do
|
|
{{HltLine}} -- When “/” is requested, show “Hello world!”
|
|
{{HltLine}} get root $
|
|
{{PopUp}}["Hey there"]text "Hello world!"
|