-- a wrapper for the cycleKey function. cycleKey takes a ByteString, whereas
-- cycleKeyChar takes single Word8. So we convert that into a ByteString first
cycleKeyChar :: B.ByteString -> Word8 -> B.ByteString
cycleKeyChar bs w =
  B.pack [w]
  |> cycleKey bs
cycleKeyChar :: B.ByteString -> Word8 -> B.ByteString
cycleKeyChar bs w =
  B.pack [w]
  |> cycleKey bs
cycleKeyChar bs w =
  B.pack [w]
  |> cycleKey bs