getFolder :: Maybe String -> IO String
getFolder Nothing     = getCurrentDirectory
getFolder :: Maybe String -> IO String
getFolder Nothing     = getCurrentDirectory
getFolder Nothing     = getCurrentDirectory