PacketDump.hs

import Baskerville.Beta.Packets
import qualified Data.ByteString as BS
import Data.Serialize
import Numeric
import System.IO

splitBytes str = let
    strs = words str
    in map (fst . head . readHex) strs

strToBs s = BS.pack $ map fromIntegral s

getPackets :: BS.ByteString -> Either String ([Packet], BS.ByteString)
getPackets bytes = case runGetPartial get bytes of
    Fail s -> Left s
    Partial _ -> Right ([], bytes)
    Done packet bytes' -> case getPackets bytes' of
        Right (ps, bytes'') -> Right (packet : ps, bytes'')
        l -> l

showPackets (Left s) = "Parse error: " ++ s
showPackets (Right (ps, rem)) = let
    srem = "Remainder: " ++ show rem
    sps = map show ps
    allLines = sps ++ [srem]
    in unlines allLines

derp = showPackets . getPackets . strToBs . splitBytes

main = interact derp