haskell/stackage
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage.git synced 2026-01-28 15:10:26 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Delete libraries when unregistering

Browse Source 
Pinging @manny-fp
This commit is contained in:
Michael Snoyman 2015-03-15 15:29:47 +02:00
parent 8f74bbee49
commit eef9c14d24
1 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
Stackage/GhcPkg.hs
View File

@ -85,9 +85,20 @@ unregisterPackage :: (ByteString -> IO ()) -- ^ log func
unregisterPackage log' onUnregister docDir flags ident@(PackageIdentifier name _) = do unregisterPackage log' onUnregister docDir flags ident@(PackageIdentifier name _) = do
log' $ "Unregistering " ++ encodeUtf8 (display ident) ++ "\n" log' $ "Unregistering " ++ encodeUtf8 (display ident) ++ "\n"
onUnregister ident onUnregister ident
-- Delete libraries
sourceProcessWithConsumer
(proc "ghc-pkg" ("describe" : flags ++ [unpack $ display ident]))
(CT.decodeUtf8
$= CT.lines
$= CL.mapMaybe parseLibraryDir
$= CL.mapM_ (void . tryIO . removeTree))
void (readProcessWithExitCode void (readProcessWithExitCode
"ghc-pkg" "ghc-pkg"
("unregister": flags ++ ["--force", unpack $ display name]) ("unregister": flags ++ ["--force", unpack $ display name])
"") "")
void $ tryIO $ removeTree $ docDir </> fpFromText (display ident) void $ tryIO $ removeTree $ docDir </> fpFromText (display ident)
where
parseLibraryDir = fmap fpFromText . stripPrefix "library-dirs: "