Simplify page initialization

1 files changed, 10 insertions, 1 deletions

diff --git a/client/src/Util/Ajax.hs b/client/src/Util/Ajax.hs
index 9cd5105..47f4f3c 100644
--- a/client/src/Util/Ajax.hs
+++ b/client/src/Util/Ajax.hs
@@ -1,5 +1,6 @@
 module Util.Ajax
-  ( get
+  ( getNow
+  , get
   , post
   , put
   , delete
@@ -21,6 +22,14 @@ import           Reflex.Dom           (Dynamic, Event, IsXhrPayload,
                                        XhrResponseHeaders (..))
 import qualified Reflex.Dom           as R
 
+import           Loadable             (Loadable)
+import qualified Loadable
+
+getNow :: forall t m a. (MonadWidget t m, FromJSON a) => Text -> m (Dynamic t (Loadable a))
+getNow url = do
+  postBuild <- R.getPostBuild
+  get (R.tag (R.constant url) postBuild) >>= Loadable.fromEvent
+
 get
   :: forall t m a. (MonadWidget t m, FromJSON a)
   => Event t Text