]> hydra-www.ietfng.org Git - dyna2/commitdiff
Remove .plan file after running selftest
authorNathaniel Wesley Filardo <nwf@cs.jhu.edu>
Wed, 19 Jun 2013 02:59:30 +0000 (22:59 -0400)
committerNathaniel Wesley Filardo <nwf@cs.jhu.edu>
Wed, 19 Jun 2013 02:59:30 +0000 (22:59 -0400)
src/Dyna/Backend/Python/Selftest.hs

index f130c31038030fa75ed0b7699e0ce64877143829..4104b75c8f6281855e05c48d307d218ba05630ba 100644 (file)
@@ -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