pprMac.hs

pprMac :: Mac -> T.Text
pprMac mac = let (w1, w2, w3, w4, w5, w6) = macToWord8s mac
              in T.pack . fromDList $
                    showHex w1
                 <> dlistSingleton ':'
                 <> showHex w2
                 <> dlistSingleton ':'
                 <> showHex w3
                 <> dlistSingleton ':'
                 <> showHex w4
                 <> dlistSingleton ':'
                 <> showHex w5
                 <> dlistSingleton ':'
                 <> showHex 6

  where
    {-# INLINE showHex #-}
    showHex :: Word8 -> DList Char
    showHex w = dlistSingleton (intToDigit (fromIntegral (w `unsafeShiftR` 4)))
             <> dlistSingleton (intToDigit (fromIntegral (w .&. 0xf)))