removeNoneValue :: (a, Maybe b) -> Maybe (a,b)
removeNoneValue (k,v) =
    case v of
    Just v' -> Just (k, v')
    Nothing -> Nothing
removeNoneValue :: (a, Maybe b) -> Maybe (a,b)
removeNoneValue (k,v) =
    case v of
    Just v' -> Just (k, v')
    Nothing -> Nothing
removeNoneValue (k,v) =
    case v of
    Just v' -> Just (k, v')
    Nothing -> Nothing