choosePackageDir :: Window -> Maybe FilePath -> IO (Maybe FilePath)
choosePackageDir window mbDir = chooseDir window (__ "Select root folder for package") mbDir
choosePackageDir :: Window -> Maybe FilePath -> IO (Maybe FilePath)
choosePackageDir window mbDir = chooseDir window (__ "Select root folder for package") mbDir
choosePackageDir window mbDir = chooseDir window (__ "Select root folder for package") mbDir