# Pastebin 6eakbctK
app :: Application
app request respond = do

  (state, html) <- renderStatic' . runHydratableT . runSourceT ("http://graphql.localhost:3000", constant Map.empty) $
    el "html" $ do
      el "head" $ do
        elAttr "script" ("src" =: "http://jsaddle.localhost:3000/jsaddle.js") blank
        elAttr "link" ("rel" =: "stylesheet" <> "href" =: ("http://static.localhost:3000/" <> test_css)) blank
      el "body" $ do
        text "hello"
        buildE <- getPostBuild
        clickE <- button "click"
        textD <- holdDyn "before click" $ "afterClick " <$ buildE
        dynText textD
        runViewT (constLocHandler $ T.decodeUtf8 . rawPathInfo $ request) appW