Issue #26: replace with a better suited file function

juspay · Nov 21, 2019 · aa3188e · aa3188e
1 parent ad740e7
commit aa3188e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/test/Fencer/Rules/Test.hs b/test/Fencer/Rules/Test.hs
@@ -21,7 +21,7 @@ import qualified Data.Yaml as Yaml
 import           Named ((:!), arg)
 import           NeatInterpolation (text)
 import qualified System.IO.Temp as Temp
-import           System.FilePath (splitFileName, (</>))
+import           System.FilePath (takeDirectory, (</>))
 import qualified System.Directory as Dir
 import           Test.Tasty (TestTree, testGroup)
 import           Test.Tasty.HUnit (assertBool, assertEqual, Assertion, testCase)
@@ -58,7 +58,7 @@ writeFile
   (arg #modifyPerms -> modifyPerms) = do
 
   let
-    (dir, _) = splitFileName path
+    dir = takeDirectory path
     fullPath = root </> path
   Dir.createDirectoryIfMissing True (root </> dir)
   TIO.writeFile fullPath content