hasufell
/
hsfm
1
1
Fork 0
Code Issues 33 Pull Requests Releases Wiki Activity

TESTS: fix normalDirPerms

This commit is contained in:
Julian Ospald 2016-05-02 19:54:47 +02:00
parent c76c27288d
commit 3e5777bf3a
No known key found for this signature in database
GPG Key ID: 511B62C09D50CD28
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
test/Spec.hs
View File

@ -29,8 +29,7 @@ import System.Exit
import System.Process
import System.Posix.Files.ByteString
(
accessModes
, groupExecuteMode
groupExecuteMode
, groupReadMode
, nullFileMode
, otherExecuteMode
@ -44,7 +43,6 @@ import System.Posix.Files.ByteString
-- TODO: chardev, blockdev, namedpipe, socket
-- TODO: no permission to open input file/dir
main :: IO ()
@ -596,5 +594,5 @@ normalDirPerms :: ByteString -> IO ()
normalDirPerms path = do
pwd <- fromJust <$> getEnv "PWD" >>= P.parseAbs
file <- (pwd P.</>) <$> P.parseRel path
setFileMode (P.fromAbs file) accessModes
setFileMode (P.fromAbs file) newDirPerms