module Utils where

import           Data.Word

import           Data.ByteArray               (Bytes, ScrubbedBytes)

unS :: String -> [Word8]

unS = map (fromIntegral . fromEnum)

ascii :: [Word8] -> String

ascii = map (toEnum . fromIntegral)

-- | similar to proxy

data Witness a = Witness

withWitness :: Witness a -> a -> a

withWitness _ a = a

withBytesWitness :: Bytes -> Bytes

withBytesWitness = withWitness (Witness :: Witness Bytes)

withScrubbedBytesWitness :: ScrubbedBytes -> ScrubbedBytes

withScrubbedBytesWitness = id

numberedList :: [a] -> [(Int, a)]

numberedList = zip [1..]