@@ -14,8 +14,10 @@ import System.FilePath
1414main = do
1515 files <- sort <$> listDirectory "."
1616 let (dynlibs,libdirs) = partition (".so" `isExtensionOf`) files
17− pkglibdirs = groupBy samePkgLibDir libdirs
18− pkgdynlibs = groupBy samePkgDynLib dynlibs
17+ pkglibdirs = groupBy samePkgLibDir $
18+ filter (not . ("-internal" `isSuffixOf`)) libdirs
19+ pkgdynlibs = groupBy samePkgDynLib $
20+ filter (not . ("-internal-" `isInfixOf`)) dynlibs
1921 mapM_ (removeOlder removeDirectoryRecursive) pkglibdirs
2022 mapM_ (removeOlder removeFile) pkgdynlibs
2123 where