printEntry :: MRTMessage -> IO ()
printEntry msg = case getRecord msg of
    (TableDumpV2 _ ip ribs) -> mapM_ (printRib ip) ribs
    _                       -> return ()
printEntry :: MRTMessage -> IO ()
printEntry msg = case getRecord msg of
    (TableDumpV2 _ ip ribs) -> mapM_ (printRib ip) ribs
    _                       -> return ()
printEntry msg = case getRecord msg of
    (TableDumpV2 _ ip ribs) -> mapM_ (printRib ip) ribs
    _                       -> return ()