cleanRestaurant ((Just t),(Just d)) =
    let cleanT x = takeWhile (/= ' ') $ strContent x
        cleanD y = filter (not . flip  elem ['\t', '\n']) $ strContent y
    in  Just (cleanT t, cleanD d)
cleanRestaurant ((Just t),(Just d)) =
    let cleanT x = takeWhile (/= ' ') $ strContent x
        cleanD y = filter (not . flip  elem ['\t', '\n']) $ strContent y
    in  Just (cleanT t, cleanD d)
cleanRestaurant ((Just t),(Just d)) =
    let cleanT x = takeWhile (/= ' ') $ strContent x
        cleanD y = filter (not . flip  elem ['\t', '\n']) $ strContent y
    in  Just (cleanT t, cleanD d)