From 45931a37f7bf3dcbe7e3c526f0b09344a631ce22 Mon Sep 17 00:00:00 2001
From: Philippe Pittoli <karchnu@karchnu.fr>
Date: Thu, 21 Mar 2024 02:03:11 +0100
Subject: [PATCH] Cleaner logs.

---
 src/App/Page/Administration.purs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/App/Page/Administration.purs b/src/App/Page/Administration.purs
index 3622f9a..51a6ea9 100644
--- a/src/App/Page/Administration.purs
+++ b/src/App/Page/Administration.purs
@@ -10,7 +10,7 @@
 -}
 module App.Page.Administration where
 
-import Prelude (Unit, bind, discard, not, pure, show, ($), (<<<), (<>), (=<<), map, (/=), (==))
+import Prelude (Unit, bind, discard, not, pure, show, ($), (<<<), (<>), (=<<), map, (/=), (==), unit)
 import Data.Eq (class Eq)
 
 import Bulma as Bulma
@@ -201,7 +201,7 @@ handleAction = case _ of
     sessionstorage <- H.liftEffect $ Window.sessionStorage =<< HTML.window
     old_tab <- H.liftEffect $ Storage.getItem "current-ada-tab" sessionstorage
     case old_tab of
-      Nothing -> H.raise $ Log $ ErrorLog "We hadn't changed tab before reload apparently."
+      Nothing -> pure unit
       Just current_tab -> case current_tab of
         "Home"          -> handleAction $ ChangeTab Home
         "Search"        -> handleAction $ ChangeTab Search