TESTS: don't use lazy IO -.-

2016-06-05 14:55:21 +02:00
parent 4f047dbc77
commit c5bcb90b65
2 changed files with 3 additions and 6 deletions
--- a/test/Utils.hs
+++ b/test/Utils.hs
@@ -34,10 +34,7 @@ import System.IO.Unsafe
  (
    unsafePerformIO
  )
-import System.Posix.Directory.Traversals
-  (
-    allDirectoryContents
-  )
+import qualified System.Posix.Directory.Traversals as DT
 import System.Posix.Env.ByteString
  (
    getEnv
@@ -283,5 +280,5 @@ writeFile' ip bs =
 allDirectoryContents' :: ByteString -> IO [ByteString]
 {-# NOINLINE allDirectoryContents' #-}
 allDirectoryContents' ip =
-  withTmpDir ip $ \p -> allDirectoryContents (P.fromAbs p)
+  withTmpDir ip $ \p -> DT.allDirectoryContents' (P.fromAbs p)