macToBytes :: Mac -> [Int]
macToBytes = map hexify . (split ':')
    where hexify [a,b] = 0x10 * digitToInt a + digitToInt b
          hexify _     = error "bad mac string"
macToBytes :: Mac -> [Int]
macToBytes = map hexify . (split ':')
    where hexify [a,b] = 0x10 * digitToInt a + digitToInt b
          hexify _     = error "bad mac string"
macToBytes = map hexify . (split ':')
    where hexify [a,b] = 0x10 * digitToInt a + digitToInt b
          hexify _     = error "bad mac string"