From f781ef3f0367f5a266e7adb175ffaf5e69838302 Mon Sep 17 00:00:00 2001
From: Alexander Foremny <aforemny@posteo.de>
Date: Sat, 12 Oct 2024 20:18:48 +0200
Subject: fix frontend

---
 frontend/app/Main.hs | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'frontend/app/Main.hs')

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 ".."
-- 
cgit v1.2.3