From b97ad942495352c3fc1e0c820cfba82a9693ac7a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 27 Oct 2019 20:26:29 +0100
Subject: WIP Set up server side paging for incomes

---
 client/src/Loadable.hs | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'client/src/Loadable.hs')

diff --git a/client/src/Loadable.hs b/client/src/Loadable.hs
index 8714a4d..a5c1d41 100644
--- a/client/src/Loadable.hs
+++ b/client/src/Loadable.hs
@@ -49,3 +49,12 @@ view :: forall t m a. MonadWidget t m => (a -> m ()) -> Loadable a -> m ()
 view _ (Loading)  = R.divClass "pageSpinner" $ R.divClass "spinner" $ R.blank
 view _ (Error e)  = R.text e
 view f (Loaded x) = f x
+
+-- view :: forall t m a b. MonadWidget t m => (a -> m b) -> Loadable a -> m (Maybe b)
+-- view _ (Loading)  = do
+--   R.divClass "pageSpinner" $ R.divClass "spinner" $ R.blank
+--   return Nothing
+-- view _ (Error e)  = do
+--   R.text e
+--   return Nothing
+-- view f (Loaded x) = Just <$> (f x)
-- 
cgit v1.2.3