Remove .plan file after running selftest

diff --git a/src/Dyna/Backend/Python/Selftest.hs b/src/Dyna/Backend/Python/Selftest.hs
index f130c31038030fa75ed0b7699e0ce64877143829..4104b75c8f6281855e05c48d307d218ba05630ba 100644 (file)
--- a/src/Dyna/Backend/Python/Selftest.hs
+++ b/src/Dyna/Backend/Python/Selftest.hs
@@ -56,6 +56,7 @@ runDynaPy f pl out = handle (\(_ :: ExitCode) -> return ()) $ do
       , create_group = False
       }
    ec <- waitForProcess ph
+   _ <- tryIOError $ removeFile pl
    case ec of
     ExitSuccess -> return ()
     ExitFailure _ -> throw ec