From 25e6cefd7b36bc6800445675c7726875c8127bfd Mon Sep 17 00:00:00 2001
From: pingu <nor@acorneroftheweb.com>
Date: Fri, 18 Oct 2024 17:11:33 +0200
Subject: [PATCH] Do not log when there is no lunch

---
 src/Model.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Model.hs b/src/Model.hs
index 3b09e16..c8b5485 100644
--- a/src/Model.hs
+++ b/src/Model.hs
@@ -141,11 +141,11 @@ update = do
     ]
 
   for_ rest $ \r -> case menu r of
-    Left e ->
+    Left e@(NMParseError _ _) ->
       asks _cLogPath >>= \path ->
       liftIO getCurrentTime >>=
       liftIO . flip writeFile (show e) . flip (printf "%s/%s%s.txt" path) (name r) . show
-    Right _ -> pure ()
+    _ -> pure ()
 
   return (View rest textday d)
  where