Use only one --ipid flag for batched package unregistraton

qrilka · qrilka · commit f8dc7fe9210c · 2019-07-12T00:28:03.000+03:00
diff --git a/src/Stack/GhcPkg.hs b/src/Stack/GhcPkg.hs
@@ -146,11 +146,10 @@ unregisterGhcPkgIds pkgexe pkgDb epgids = do
         Left e -> logWarn $ displayShow e
         Right _ -> return ()
   where
+    (idents, gids) = partitionEithers $ toList epgids
     args = "unregister" : "--user" : "--force" :
-        concatMap (either
-            (\ident -> [packageIdentifierString ident])
-            (\gid -> ["--ipid", ghcPkgIdString gid]))
-            epgids
+        map packageIdentifierString idents ++
+        if null gids then [] else "--ipid" : map ghcPkgIdString gids
 
 -- | Get the value for GHC_PACKAGE_PATH
 mkGhcPackagePath :: Bool -> Path Abs Dir -> Path Abs Dir -> [Path Abs Dir] -> Path Abs Dir -> Text
