qr-repa-0.1.0.0: app/Main.hs

{-#LANGUAGE OverloadedStrings #-}

import Data.QRCodes.Repa
import qualified Data.ByteString as B
import System.Environment (getArgs)

main :: IO ()
main = do
    pipeIn <- B.getContents
    filepath <- fmap (flip (!!) 0) getArgs
    byteStringToQRSec pipeIn filepath