----------------------------------------------------------------

{-|
  This function tells whether or not a file\/directory is symbolic
  link.
-}
isSymlink :: FilePath -> IO Bool
isSymlink file = isSymbolicLink <$> getSymbolicLinkStatus file
isSymlink :: FilePath -> IO Bool
isSymlink file = isSymbolicLink <$> getSymbolicLinkStatus file
isSymlink file = isSymbolicLink <$> getSymbolicLinkStatus file