-- Parse Sonaatti restaurants and return menu from Piato.
parseMenu :: IO String
parseMenu = do
    source <- readFeed feed
    let doc = parseXMLDoc source
        piato = getRestaurant "piato" (parseRestaurants doc)
    return (toStr piato)
parseMenu :: IO String
parseMenu = do
    source <- readFeed feed
    let doc = parseXMLDoc source
        piato = getRestaurant "piato" (parseRestaurants doc)
    return (toStr piato)
parseMenu = do
    source <- readFeed feed
    let doc = parseXMLDoc source
        piato = getRestaurant "piato" (parseRestaurants doc)
    return (toStr piato)