module Packets.MacAddress
  (
    MacAddress(..)
  , broadcastMac
  ) where

import qualified Data.ByteString      as B
import           Data.Word            (Word8)
import           Packets.Serializable (Serializable (..))

data MacAddress =
  MacAddress Word8 Word8 Word8 Word8 Word8 Word8
  deriving (Show, Eq)

instance Serializable MacAddress where
  serialize (MacAddress b1 b2 b3 b4 b5 b6) = B.pack [b1, b2, b3, b4, b5, b6]

broadcastMac :: MacAddress
broadcastMac = MacAddress 0xff 0xff 0xff 0xff 0xff 0xff