-- clean restaurant name and menu.
cleanRestaurant :: (Maybe Element,Maybe Element) -> Maybe Restaurant
cleanRestaurant (Nothing,_)         = Nothing
cleanRestaurant :: (Maybe Element,Maybe Element) -> Maybe Restaurant
cleanRestaurant (Nothing,_)         = Nothing
cleanRestaurant (Nothing,_)         = Nothing