Made mat-chalmers look at all recipes, not only the first.

We only looked at the first recipe for every recipe category, which
made us drop dishes that we in the same recipe category, like the
multiple salad dishes at Classic Salad or the different Linsen dishes.

Should close issue #18 and #24.

src/M/Karen.hs

@@ -22,7 +22,7 @@ getKaren weekday name restUrl menuUrl = do
       res <- parseMaybe (parseMenuForDay weekday) val
       return $ case res of
         Nothing -> Left NoLunch
-        Just l -> Right l
+        Just l -> Right (concat l)
 
 getKarenToday :: T.Text -> String -> T.Text -> IO Restaurant
 getKarenToday name restUrl menuUrl = do
@@ -32,4 +32,4 @@ getKarenToday name restUrl menuUrl = do
     text' <- text
     val <- decode text'
     (_, l) <- parseMaybe (parseMenus) val
-    return $ Right l
+    return $ Right (concat l)

src/M/KarenJSON.hs

@@ -9,32 +9,33 @@ import Data.Aeson.Types
 import qualified Data.Text as TS
 import Data.Thyme
 import System.Locale (defaultTimeLocale)
-import Data.Traversable (traverse)
+import Data.Traversable (traverse, for)
 
 import M.Types hiding (name, menu, url)
 
 -- | Get the menu for a specific day. Nothing if there is no menu for
 -- that day.
-parseMenuForDay :: Day -> Value -> Parser (Maybe [Menu])
+parseMenuForDay :: Day -> Value -> Parser (Maybe [[Menu]])
 parseMenuForDay day = withObject "top" $ \obj -> do
   menuArray <- obj .: "menus"
   menus <- traverse parseMenus menuArray
   return $ lookup day menus
 
-parseMenus :: Value -> Parser (Day, [Menu])
-parseMenus = withObject "days" $ \menu -> do
+parseMenus :: Value -> Parser (Day, [[Menu]])
+parseMenus  = withObject "days" $ \menu -> do
   day <- fmap localDay $ menu .: "menuDate"
   recips <- menu .: "recipeCategories"
-  menu' <- traverse parseMenu recips
+  menu' <- traverse parseMenus' recips
   return (day, menu')
 
-parseMenu :: Value -> Parser Menu
-parseMenu = withObject "day" $ \obj -> do
+parseMenus' :: Value -> Parser [Menu]
+parseMenus' = withObject "day" $ \obj -> do
   name <- obj .: "name"
-  (Object recip1:_) <- obj .: "recipes"
-  (Object what:_) <- recip1 .: "displayNames"
-  what' <- what .: "displayName"
-  return $ Menu name what'
+  recs <- obj .: "recipes"
+  for recs $ withObject "recipe" $ \rec' -> do
+    [Object sv, Object eng] <- rec' .: "displayNames"
+    what' <- sv .: "displayName"
+    return $ Menu name what'
 
 instance FromJSON LocalTime where
   parseJSON = withText "local time" $ \str ->