如何将二进制网络数据包结构映射到Haskell标准数据类型(记录)？

data NetworkPacket = NetworkPacket
  { field1 :: Int
  , field2 :: String
  , field3 :: Bool
  -- 添加其他字段
  } deriving (Show, Eq)

import Data.Binary

instance Binary NetworkPacket where
  put packet = do
    put (field1 packet)
    put (field2 packet)
    put (field3 packet)
    -- 添加其他字段的序列化
  get = do
    field1 <- get
    field2 <- get
    field3 <- get
    -- 添加其他字段的反序列化
    return NetworkPacket { field1 = field1, field2 = field2, field3 = field3, ... }

parseNetworkPacket :: ByteString -> Maybe NetworkPacket
parseNetworkPacket bytes = case decodeOrFail bytes of
  Left _ -> Nothing
  Right (_, _, packet) -> Just packet