printRib :: IPRange -> RIBEntry -> IO ()
printRib ip rib = do
    let path = listToMaybe $ filter isPath $ getBGPAttributes rib
    putStrLn $ concat [show ip, "|", show path]
    --let attrs = filter (getBGPAttributes rib
  where
    isPath (BGPAttribute _ x) = case x of {ASPath _ -> True; _ -> False}
printRib :: IPRange -> RIBEntry -> IO ()
printRib ip rib = do
    let path = listToMaybe $ filter isPath $ getBGPAttributes rib
    putStrLn $ concat [show ip, "|", show path]
    --let attrs = filter (getBGPAttributes rib
  where
    isPath (BGPAttribute _ x) = case x of {ASPath _ -> True; _ -> False}
printRib ip rib = do
    let path = listToMaybe $ filter isPath $ getBGPAttributes rib
    putStrLn $ concat [show ip, "|", show path]
    --let attrs = filter (getBGPAttributes rib
  where
    isPath (BGPAttribute _ x) = case x of {ASPath _ -> True; _ -> False}