diff options
| author |  Alexander Foremny <aforemny@posteo.de> | 2024-10-12 20:18:48 +0200 |
|---|---|---|
| committer | Alexander Foremny <aforemny@posteo.de> | 2024-10-13 10:46:10 +0200 |
| commit | f781ef3f0367f5a266e7adb175ffaf5e69838302 (patch) | |
| tree | 3ed499263de382967eff9409a252dc8c352ac88a /frontend/app/Main.hs | |
| parent | 962db630a81a4040902c23c773df3069a48db0a3 (diff) | |
fix frontend
Diffstat (limited to 'frontend/app/Main.hs')
| -rw-r--r-- | frontend/app/Main.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/frontend/app/Main.hs b/frontend/app/Main.hs index 9f30708..e4729b4 100644 --- a/frontend/app/Main.hs +++ b/frontend/app/Main.hs @@ -134,6 +134,11 @@ update__setCollections (Right collections) = Action $ \case handleEff :: Eff -> JSM Action handleEff E.ReloadCollections = update__setCollections <$> try API.REST.listCollections +handleEff (E.Log s) = pure . Action $ \case + m -> m <# (noOp <$> consoleLog s) + +noOp :: () -> Action +noOp _ = Action noEff viewModel :: Model -> View Action viewModel Loading = text ".." |