diff options
| -rw-r--r-- | src/VeriFuzz/Fuzz.hs | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/src/VeriFuzz/Fuzz.hs b/src/VeriFuzz/Fuzz.hs index 31503cf..180ed4f 100644 --- a/src/VeriFuzz/Fuzz.hs +++ b/src/VeriFuzz/Fuzz.hs @@ -237,8 +237,7 @@ pop :: (MonadBaseControl IO m, MonadSh m) => FilePath -> m a -> m a pop f a = do dir <- liftSh pwd liftSh $ cd f - ret <- a - liftSh $ cd dir + ret <- finally a . liftSh $ cd dir return ret equivalence :: (MonadBaseControl IO m, MonadSh m) => SourceInfo -> Fuzz m () |