1{- git file modes
2 -
3 - Copyright 2013 Joey Hess <id@joeyh.name>
4 -
5 - Licensed under the GNU AGPL version 3 or higher.
6 -}
7
8{-# LANGUAGE CPP #-}
9
10module Git.FileMode where
11
12import Utility.FileMode
13
14symLinkMode :: FileMode
15symLinkMode = 40960
16
17{- Git uses a special file mode to indicate a symlink. This is the case
18 - even on Windows, so we hard code the valuse here, rather than using
19 - System.Posix.Files.symbolicLinkMode. -}
20isSymLink :: FileMode -> Bool
21isSymLink = checkMode symLinkMode
22