cloneFields :: [PackageId] -> FilePath -> FieldDescription ClonePackageSourceRepo
cloneFields packages workspaceDir = VFD emptyParams [
        mkField
            (paraName <<<- ParaName ((__ "Existing package to clone source repository"))
                    $ emptyParams)
            packageToClone
            (\ a b -> b{packageToClone = a})
            (comboEntryEditor ((sort . nub) (map (T.pack . display . pkgName) packages))),
        mkField
            (paraName <<<- ParaName ((__ "Parent directory"))
                $ paraMinSize <<<- ParaMinSize (-1, 120)
                    $ emptyParams)
            (\a -> cloneParentDir a)
            (\ a b -> b{cloneParentDir = a})
            (fileEditor (Just workspaceDir) FileChooserActionSelectFolder "Select")]
cloneFields :: [PackageId] -> FilePath -> FieldDescription ClonePackageSourceRepo
cloneFields packages workspaceDir = VFD emptyParams [
        mkField
            (paraName <<<- ParaName ((__ "Existing package to clone source repository"))
                    $ emptyParams)
            packageToClone
            (\ a b -> b{packageToClone = a})
            (comboEntryEditor ((sort . nub) (map (T.pack . display . pkgName) packages))),
        mkField
            (paraName <<<- ParaName ((__ "Parent directory"))
                $ paraMinSize <<<- ParaMinSize (-1, 120)
                    $ emptyParams)
            (\a -> cloneParentDir a)
            (\ a b -> b{cloneParentDir = a})
            (fileEditor (Just workspaceDir) FileChooserActionSelectFolder "Select")]
cloneFields packages workspaceDir = VFD emptyParams [
        mkField
            (paraName <<<- ParaName ((__ "Existing package to clone source repository"))
                    $ emptyParams)
            packageToClone
            (\ a b -> b{packageToClone = a})
            (comboEntryEditor ((sort . nub) (map (T.pack . display . pkgName) packages))),
        mkField
            (paraName <<<- ParaName ((__ "Parent directory"))
                $ paraMinSize <<<- ParaMinSize (-1, 120)
                    $ emptyParams)
            (\a -> cloneParentDir a)
            (\ a b -> b{cloneParentDir = a})
            (fileEditor (Just workspaceDir) FileChooserActionSelectFolder "Select")]