getAllInterfaces :: IO [Network.HostAddress]
getAllInterfaces = do
  interfaces <- Network.getNetworkInterfaces
  return $ map (\interface ->
                  let Network.IPv4 hostAddress = Network.ipv4 interface
                  in hostAddress)
               interfaces
getAllInterfaces :: IO [Network.HostAddress]
getAllInterfaces = do
  interfaces <- Network.getNetworkInterfaces
  return $ map (\interface ->
                  let Network.IPv4 hostAddress = Network.ipv4 interface
                  in hostAddress)
               interfaces
getAllInterfaces = do
  interfaces <- Network.getNetworkInterfaces
  return $ map (\interface ->
                  let Network.IPv4 hostAddress = Network.ipv4 interface
                  in hostAddress)
               interfaces