Love kåren

dtekcth · Aug 14, 2024 · fb66640 · fb66640
1 parent d536c7a
commit fb66640
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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