diff options
| author | Joris | 2019-11-17 18:08:28 +0100 |
|---|---|---|
| committer | Joris | 2019-11-17 18:08:28 +0100 |
| commit | c0ea63f8c1a8c7123b78798cec99726b113fb1f3 (patch) | |
| tree | 0b92f7e0c125c067a5f1ccafe6a1f04f1edfae86 /client/src/Loadable.hs | |
| parent | 4dc84dbda7ba3ea60d13e6f81eeec556974b7c72 (diff) | |
| download | budget-c0ea63f8c1a8c7123b78798cec99726b113fb1f3.tar.gz budget-c0ea63f8c1a8c7123b78798cec99726b113fb1f3.tar.bz2 budget-c0ea63f8c1a8c7123b78798cec99726b113fb1f3.zip | |
Optimize and refactor payments
Diffstat (limited to 'client/src/Loadable.hs')
| -rw-r--r-- | client/src/Loadable.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/client/src/Loadable.hs b/client/src/Loadable.hs index f57b99c..2b9008a 100644 --- a/client/src/Loadable.hs +++ b/client/src/Loadable.hs @@ -16,6 +16,7 @@ data Loadable t = Loading | Error Text | Loaded t + deriving Show instance Functor Loadable where fmap f Loading = Loading @@ -46,6 +47,6 @@ fromEvent = Loading view :: forall t m a b. MonadWidget t m => (a -> m b) -> Loadable a -> m (Maybe b) -view _ (Loading) = (R.divClass "pageSpinner" $ R.divClass "spinner" $ R.blank) >> return Nothing +view _ Loading = (R.divClass "pageSpinner" $ R.divClass "spinner" $ R.blank) >> return Nothing view _ (Error e) = R.text e >> return Nothing view f (Loaded x) = Just <$> f x |