setExports :: [String] -> Shell ExitCode
setExports [] = getExports >>= mapM (oPutStrLn . (\(s,v) -> "export "++s++"="++v))
                >> return ExitSuccess
setExports :: [String] -> Shell ExitCode
setExports [] = getExports >>= mapM (oPutStrLn . (\(s,v) -> "export "++s++"="++v))
                >> return ExitSuccess
setExports [] = getExports >>= mapM (oPutStrLn . (\(s,v) -> "export "++s++"="++v))
                >> return ExitSuccess