From 602c52acfcfa494b07fec05c20b317b60ea8a6f3 Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 20 Oct 2019 21:31:57 +0200
Subject: Load init data per page with AJAX

---
 server/src/Controller/Index.hs | 11 ++++++-----
 1 file changed, 6 insertions(+), 5 deletions(-)

(limited to 'server/src/Controller/Index.hs')

diff --git a/server/src/Controller/Index.hs b/server/src/Controller/Index.hs
index 5ebe921..3788685 100644
--- a/server/src/Controller/Index.hs
+++ b/server/src/Controller/Index.hs
@@ -16,8 +16,9 @@ import           Prelude                   hiding (error)
 import           Web.Scotty                (ActionM)
 import qualified Web.Scotty                as S
 
-import           Common.Model              (Email (..), InitResult (..),
-                                            SignInForm (..), User (..))
+import           Common.Model              (Email (..), Init (..),
+                                            InitResult (..), SignInForm (..),
+                                            User (..))
 import           Common.Msg                (Key)
 import qualified Common.Msg                as Msg
 import qualified Common.Validation.SignIn  as SignInValidation
@@ -26,7 +27,6 @@ import           Conf                      (Conf (..))
 import qualified LoginSession
 import qualified Model.Query               as Query
 import qualified Model.SignIn              as SignIn
-import qualified Persistence.Init          as InitPersistence
 import qualified Persistence.User          as UserPersistence
 import qualified Secure
 import qualified SendMail
@@ -40,8 +40,9 @@ get conf = do
     case mbLoggedUser of
       Nothing ->
         return InitEmpty
-      Just user ->
-        liftIO . Query.run . fmap InitSuccess $ InitPersistence.getInit user conf
+      Just user -> do
+        users <- liftIO . Query.run $ UserPersistence.list
+        return . InitSuccess $ Init users (_user_id user) (Conf.currency conf)
   S.html $ page initResult
 
 askSignIn :: Conf -> SignInForm -> ActionM ()
-- 
cgit v1.2.3