bustle-0.7.2: Test/DumpMessages.hs

module Main where

import System.Environment (getArgs)
import Control.Monad (forM_)

import Bustle.Loader.Pcap (readPcap)

main = do
    args <- getArgs
    let file = case args of
            x:_ -> x
            _   -> error "gimme a filename"
    r <- readPcap file
    case r of
        Left e -> print e
        Right (warnings, messages) -> do
                forM_ warnings putStrLn
                putStrLn ""
                -- forM_ (zip [1..] messages) $ \(i, message) ->
                --     putStrLn $ show i ++ ": " ++ show message