From: Nathaniel Wesley Filardo <nwf@cs.jhu.edu>
Date: Wed, 19 Jun 2013 02:59:30 +0000 (-0400)
Subject: Remove .plan file after running selftest
X-Git-Url: https://hydra-www.ietfng.org/gitweb/?a=commitdiff_plain;h=5f2a035bde2e8ca5fd921ac39db21decaf173d7d;p=dyna2

Remove .plan file after running selftest
---

diff --git a/src/Dyna/Backend/Python/Selftest.hs b/src/Dyna/Backend/Python/Selftest.hs
index f130c31..4104b75 100644
--- 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