hit icon indicating copy to clipboard operation
hit copied to clipboard
verified publisher icon vincenthz

getFiletype is unimplemented

Open deviant-logic opened this issue 10 years ago • 0 comments

Does the below suffice?

blobMode, execMode, treeMode, submMode, linkMode :: ModePerm
blobMode = ModePerm 0o100644
execMode = ModePerm 0o100755
treeMode = ModePerm 0o040000
submMode = ModePerm 0o160000
linkMode = ModePerm 0o120000

getFileType :: ModePerm -> ObjectFileType
getFiletype perm | perm == blobMode = FileTypeRegularFile
                 | perm == execMode = FileTypeRegularFile
                 | perm == treeMode = FileTypeDirectory
                 | perm == linkMode = FileTypeSymbolicLink
                 | perm == submMode = FileTypeGitLink
                 | otherwise = error $ "don't file type for permission " ++ show perm

It would also be useful to export the {blob,exec,tree,subm,link}Modes

deviant-logic avatar Mar 26 '15 18:03 deviant-logic