Parse.hs

module Prox.Parse where

import Control.Monad
import Data.ByteString
import Data.Word
--import Network.Socket.ByteString

import Data.Attoparsec
import Data.Attoparsec.Binary


data StartupPacket           =  StartupPacket { length :: Word32,
                                                protocolVersion :: Word32 }

startupPacket                =  do
  len                       <-  anyWord32be
  guard (len > pg_MAX_STARTUP_PACKET_LENGTH)
  protocolVersion           <-  anyWord32be
  return (StartupPacket len protocolVersion)

pg_MAX_STARTUP_PACKET_LENGTH :: Word32
pg_MAX_STARTUP_PACKET_LENGTH = 10000