module Main where

import Hans.NetworkStack
import Hans.Device.Pcap

main :: IO ()
main = do
  let mac = Mac 1 2 3 4 5 6
  ns  <- newNetworkStack

  dev <- pcapOpen "eth0".
  addDevice ns mac (pcapSend dev) (pcapReceiveLoop dev)
  deviceUp ns mac
  -- and we can do whatever we could earlier