rncryptor-0.0.1.0: example/StreamingDecrypter.hs

{-# LANGUAGE OverloadedStrings #-}
module Main where

import Crypto.RNCryptor.V3
import qualified System.IO.Streams as S
import System.Environment
import qualified Data.ByteString.Char8 as B

main :: IO ()
main = do
  args <- getArgs
  case args of
    key:_ -> decryptStream (B.pack key) S.stdin S.stdout
    _ -> putStrLn "usage: rncryptor-stream <key>"