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