decryptWithKey :: ByteString -> FilePath -> IO ()
decryptWithKey encryption_key file_path = do
  encrypted_json <- BS.readFile (file_path ++ ".enc")
  BS.writeFile file_path $ BS.pack $ BS.zipWith (xor) (BS.cycle encryption_key) encrypted_json

-- Exercise 3 -----------------------------------------
decryptWithKey :: ByteString -> FilePath -> IO ()
decryptWithKey encryption_key file_path = do
  encrypted_json <- BS.readFile (file_path ++ ".enc")
  BS.writeFile file_path $ BS.pack $ BS.zipWith (xor) (BS.cycle encryption_key) encrypted_json

-- Exercise 3 -----------------------------------------
decryptWithKey encryption_key file_path = do
  encrypted_json <- BS.readFile (file_path ++ ".enc")
  BS.writeFile file_path $ BS.pack $ BS.zipWith (xor) (BS.cycle encryption_key) encrypted_json

-- Exercise 3 -----------------------------------------