GGg-0.1.0.2: src/CLI.hs

module CLI 
( parseArgs
) where

import Conversions

parseArgs :: [String] -> IO ()
parseArgs ["-g"] = putStr . asciiTextToG =<< getContents
parseArgs ["-a"] = putStr . gTextToAscii =<< getContents
parseArgs []     = putStrLn "No argument provided. Try `-g' or `-a'."
parseArgs _      = putStrLn "Invalid arguments."