Do not log when there is no lunch

dtekcth · Oct 18, 2024 · eeb293f · eeb293f
1 parent 2e671f0
commit eeb293f
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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