guide/tests/SnippetsExample.md

    {-# 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!"