parseArgs :: [String] -> (IO String, [IO ByteString])
parseArgs ["-c", command] = (return command, [BS.getContents])
parseArgs :: [String] -> (IO String, [IO ByteString])
parseArgs ["-c", command] = (return command, [BS.getContents])
parseArgs ["-c", command] = (return command, [BS.getContents])