bustle-0.4.3: 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"
    (Right (warnings, messages)) <- readPcap file
    forM_ (zip [1..] messages) $ \(i, message) ->
        putStrLn $ show i ++ ": " ++ show message