Fix "ghc-mod root" leaving garbage in tmp

2016-10-10 22:17:11 +02:00 · 2016-10-10 22:17:11 +02:00 · 29d149866e
commit 29d149866e
parent b7cda9e9b9
1 changed files with 1 additions and 0 deletions
--- a/Language/Haskell/GhcMod/Debug.hs
+++ b/Language/Haskell/GhcMod/Debug.hs
@ -169,4 +169,5 @@ mapDoc kd ad m = vcat $
 rootInfo :: forall m. (IOish m, GmOut m, GmEnv m) => m String
 rootInfo = do
    crdl <- findCradleNoLog =<< (optPrograms <$> options)
+    liftIO $ cleanupCradle crdl
    return $ cradleRootDir crdl ++ "\n"