-- Find restaurant from list.
getRestaurant :: String -> [Restaurant] -> Maybe Restaurant
getRestaurant x = find (\(t,_) -> (map toLower t) == x)
getRestaurant :: String -> [Restaurant] -> Maybe Restaurant
getRestaurant x = find (\(t,_) -> (map toLower t) == x)
getRestaurant x = find (\(t,_) -> (map toLower t) == x)