module Codec.Digest.SHA.Misc where

import qualified Data.ByteString as B
import Numeric(showHex)

-- | Converts a ByteString to hexadeximal string format
showBSasHex :: B.ByteString -> String
showBSasHex bs | B.null bs = ""
showBSasHex bs = showHex (B.index bs 0) $ showBSasHex (B.drop 1 bs)