http2-0.0.0: test/HexString.hs

module HexString where

import Numeric
import Text.Printf
import Data.Word (Word8)

fromHexString :: String -> [Word8]
fromHexString = map fromHex . group2
  where
    fromHex = fst . head . readHex
    group2 [] = []
    group2 xs = ys : group2 zs
      where
       (ys,zs) = splitAt 2 xs

toHexString :: [Word8] -> String
toHexString = concatMap (printf "%02x")