From fb66640c4ed9f90f556190113e29820bd56c1b02 Mon Sep 17 00:00:00 2001
From: pingu <nor@acorneroftheweb.com>
Date: Wed, 14 Aug 2024 21:37:55 +0200
Subject: [PATCH] =?UTF-8?q?Love=20k=C3=A5ren?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 src/Model/Karen.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Model/Karen.hs b/src/Model/Karen.hs
index 7febdb8..cff2530 100644
--- a/src/Model/Karen.hs
+++ b/src/Model/Karen.hs
@@ -120,7 +120,7 @@ parse lang =
   menuParser :: Value -> Parser Menu
   menuParser = withObject "Menu Object" $ \obj ->
     Menu
-      <$> (obj .: "dishType" >>= (.: "name"))
+      <$> (obj .: "dishType" >>= maybe (pure "Unknown menu") (.: "name"))
       <*> ((obj .: "displayNames") >>= withArray
             "An array of meal names"
             (   mapM