TESTS: fix before/after

test/HPath/IO/CanonicalizePathSpec.hs

@@ -40,7 +40,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.canonicalizePath" $ do
 
     -- successes --

test/HPath/IO/CopyDirRecursiveCollectFailuresSpec.hs

@@ -123,7 +123,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.copyDirRecursive" $ do
 
     -- successes --

test/HPath/IO/CopyDirRecursiveOverwriteSpec.hs

@@ -90,7 +90,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.copyDirRecursive" $ do
 
     -- successes --

test/HPath/IO/CopyDirRecursiveSpec.hs

@@ -76,7 +76,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.copyDirRecursive" $ do
 
     -- successes --

test/HPath/IO/CopyFileOverwriteSpec.hs

@@ -61,7 +61,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.copyFile" $ do
 
     -- successes --

test/HPath/IO/CopyFileSpec.hs

@@ -60,7 +60,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.copyFile" $ do
 
     -- successes --

test/HPath/IO/CreateDirSpec.hs

@@ -41,7 +41,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.createDir" $ do
 
     -- successes --

test/HPath/IO/CreateRegularFileSpec.hs

@@ -39,7 +39,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.createRegularFile" $ do
 
     -- successes --

test/HPath/IO/CreateSymlinkSpec.hs

@@ -40,7 +40,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.createSymlink" $ do
 
     -- successes --

test/HPath/IO/DeleteDirRecursiveSpec.hs

@@ -51,7 +51,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.deleteDirRecursive" $ do
 
     -- successes --

test/HPath/IO/DeleteDirSpec.hs

@@ -52,7 +52,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.deleteDir" $ do
 
     -- successes --

test/HPath/IO/DeleteFileSpec.hs

@@ -46,7 +46,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.deleteFile" $ do
 
     -- successes --

test/HPath/IO/GetDirsFilesSpec.hs

@@ -53,7 +53,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.getDirsFiles" $ do
 
     -- successes --

test/HPath/IO/GetFileTypeSpec.hs

@@ -47,7 +47,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.getFileType" $ do
 
     -- successes --

test/HPath/IO/MoveFileOverwriteSpec.hs

@@ -51,7 +51,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.moveFile" $ do
 
     -- successes --

test/HPath/IO/MoveFileSpec.hs

@@ -53,7 +53,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.moveFile" $ do
 
     -- successes --

test/HPath/IO/RecreateSymlinkOverwriteSpec.hs

@@ -58,7 +58,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.recreateSymlink" $ do
 
     -- successes --

test/HPath/IO/RecreateSymlinkSpec.hs

@@ -54,7 +54,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.recreateSymlink" $ do
 
     -- successes --

test/HPath/IO/RenameFileSpec.hs

@@ -51,7 +51,7 @@ cleanupFiles = do
 
 
 spec :: Spec
-spec = beforeAll_ upTmpDir $ before_ setupFiles $ after_ cleanupFiles $
+spec = beforeAll_ (upTmpDir >> setupFiles) $ afterAll_ cleanupFiles $
   describe "HPath.IO.renameFile" $ do
 
     -- successes --