diff options
| author | Joris | 2019-10-20 21:31:57 +0200 |
|---|---|---|
| committer | Joris | 2019-10-20 21:31:57 +0200 |
| commit | 602c52acfcfa494b07fec05c20b317b60ea8a6f3 (patch) | |
| tree | 34fd9c44f82a83569822bc36eb2e0b04518e59f2 /client/src/View/Header.hs | |
| parent | 7aadcc97f9df0e2daccbe8a8726d8bc6c63d67f4 (diff) | |
| download | budget-602c52acfcfa494b07fec05c20b317b60ea8a6f3.tar.gz budget-602c52acfcfa494b07fec05c20b317b60ea8a6f3.tar.bz2 budget-602c52acfcfa494b07fec05c20b317b60ea8a6f3.zip | |
Load init data per page with AJAX
Diffstat (limited to 'client/src/View/Header.hs')
| -rw-r--r-- | client/src/View/Header.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/client/src/View/Header.hs b/client/src/View/Header.hs index 9a4de89..bd69e47 100644 --- a/client/src/View/Header.hs +++ b/client/src/View/Header.hs @@ -73,7 +73,7 @@ links route = do nameSignOut :: forall t m. MonadWidget t m => InitResult -> m (Event t ()) nameSignOut initResult = case initResult of - (InitSuccess init) -> do + InitSuccess init -> do rec attr <- R.holdDyn (M.singleton "class" "nameSignOut") |