main :: IO ()
main = do
    api <- loadDHCP
    clients <- enumClients api context
    let macs = map (showMac ":" . clientHardwareAddress) clients
    mapM_ T.putStrLn macs
 where
    Right subnet = readIp "192.168.1.0"
    context = Context "192.168.1.5" subnet
main :: IO ()
main = do
    api <- loadDHCP
    clients <- enumClients api context
    let macs = map (showMac ":" . clientHardwareAddress) clients
    mapM_ T.putStrLn macs
 where
    Right subnet = readIp "192.168.1.0"
    context = Context "192.168.1.5" subnet
main = do
    api <- loadDHCP
    clients <- enumClients api context
    let macs = map (showMac ":" . clientHardwareAddress) clients
    mapM_ T.putStrLn macs
 where
    Right subnet = readIp "192.168.1.0"
    context = Context "192.168.1.5" subnet