-- Parse restaurant from XML element.
parseRestaurant :: Element -> [Restaurant] -> [Restaurant]
parseRestaurant x acc =
    let mTitle = findElement (QName "title" Nothing Nothing) x
        mDesc = findElement (QName "description" Nothing Nothing) x
    in case cleanRestaurant (mTitle, mDesc) of
            Nothing     -> acc
            Just (food) -> food:acc

-- Parse restaurants from XML.
parseRestaurant :: Element -> [Restaurant] -> [Restaurant]
parseRestaurant x acc =
    let mTitle = findElement (QName "title" Nothing Nothing) x
        mDesc = findElement (QName "description" Nothing Nothing) x
    in case cleanRestaurant (mTitle, mDesc) of
            Nothing     -> acc
            Just (food) -> food:acc

-- Parse restaurants from XML.
parseRestaurant x acc =
    let mTitle = findElement (QName "title" Nothing Nothing) x
        mDesc = findElement (QName "description" Nothing Nothing) x
    in case cleanRestaurant (mTitle, mDesc) of
            Nothing     -> acc
            Just (food) -> food:acc

-- Parse restaurants from XML.