@@ -118,6 +118,7 @@ cleanPkg fp
118118 setCurrentDirectory $ dir </> sourcedir pkgdesc
119119 clean (makefile pkgdesc)
120120 mapM_ rmIBC (modules pkgdesc)
121+ rmIdx (pkgname pkgdesc)
121122 case execout pkgdesc of
122123 Nothing -> return ()
123124 Just s -> rmFile $ dir </> s
@@ -232,6 +233,11 @@ testLib warn p f
232233rmIBC :: Name -> IO ()
233234rmIBC m = rmFile $ toIBCFile m
234235
236+rmIdx :: String -> IO ()
237+rmIdx p = do let f = pkgIndex p
238+ ex <- doesFileExist f
239+ when ex $ rmFile f
240+
235241toIBCFile (UN n) = str n ++ ".ibc"
236242toIBCFile (NS n ns) = foldl1' (</>) (reverse (toIBCFile n : map str ns))
237243