diff options
| author | Joris | 2018-11-01 13:14:25 +0100 |
|---|---|---|
| committer | Joris | 2019-08-04 21:14:32 +0200 |
| commit | 2741f47ef7b87255203bc2f7f7b2b9140c70b8f0 (patch) | |
| tree | ea5f685cdf8f3de2efa1113325d45faaa90c977e /server/src/View/Page.hs | |
| parent | 86957359ecf54c205aee1c09e151172c327e987a (diff) | |
| download | budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.tar.gz budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.tar.bz2 budget-2741f47ef7b87255203bc2f7f7b2b9140c70b8f0.zip | |
Implementing client side validation
Diffstat (limited to 'server/src/View/Page.hs')
| -rw-r--r-- | server/src/View/Page.hs | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/server/src/View/Page.hs b/server/src/View/Page.hs index 97b84fa..f47c544 100644 --- a/server/src/View/Page.hs +++ b/server/src/View/Page.hs @@ -31,6 +31,9 @@ page initResult = link ! rel "stylesheet" ! type_ "text/css" ! href "/css/reset.css" link ! rel "icon" ! type_ "image/png" ! href "/images/icon.png" H.style $ toHtml globalDesign + H.body $ do + H.div ! A.class_ "spinner" $ "" + jsonScript :: Json.ToJSON a => Text -> a -> Html jsonScript scriptId json = |