wip - just starting

obelisk/frontend/src/App.hs

@@ -41,8 +41,8 @@ data App t = App
       appFolderContents :: Dynamic t (Map.Map MagicFolder FolderEntry)
     , -- | A function which will trigger an update of the contents of one Magic-Folder.
       appUpdateFolder :: MagicFolder -> IO ()
-    , -- | A function which triggers a reload of the list of all folders
-      appUpdateFoldersList :: Either T.Text [MagicFolder] -> IO ()
+    , -- | An action to execute to reload the list of folders from the config file.
+      appUpdateFoldersList :: IO ()
     }
 
 
@@ -62,12 +62,13 @@ initialApp startEv = do
       gridDyn <- holdDyn (Left "Loading ...") gridEv
 
       (updateFoldersListEv, updateFoldersList) <- newTriggerEvent
+
+      ffor updateFoldersListEv
+
       magicFoldersDyn <- foldDyn const (Left "loading ..") updateFoldersListEv
 
       -- update the folder list immediately at startup
-      performEvent_ $ ffor startEv $ \() -> liftIO $ do
-        f <- loadMagicFolders
-        updateFoldersList f
+      performEvent_ $ ffor startEv $ \() -> liftIO updateFoldersList
 
       -- Create a paired event/function for performing a content refresh on
       -- a specific magic-folder.