naming

obelisk/frontend/src/App.hs

@@ -48,9 +48,10 @@ data App t = App
     }
 
 
-accum :: (Either T.Text [MagicFolder]) -> (Bool, (Either T.Text [MagicFolder])) -> (Bool, (Either T.Text [MagicFolder]))
-accum (Left _) _ = (False, Right [])
-accum (Right f) _ = (True, Right f)
+foldLoadState :: (Either T.Text [MagicFolder]) -> (Bool, (Either T.Text [MagicFolder])) -> (Bool, (Either T.Text [MagicFolder]))
+foldLoadState (Left _) _ = (False, Right [])
+foldLoadState (Right f) _ = (True, Right f)
+
 
 -- | Load the initial application state from local configuration.
 initialApp
@@ -79,7 +80,7 @@ initialApp startEv = do
       -- in this case, we can only fire once but if this could fire
       -- multiple times we should always remain True once we get to
       -- True
-      initializedDyn <- foldDyn accum (False, Right []) firstLoadEvent
+      initializedDyn <- foldDyn foldLoadState (False, Right []) firstLoadEvent
 
       -- Create a paired event/function for performing a content refresh on
       -- a specific magic-folder.