{-|
  This function returns whether or not a directory has sub-directories.
-}
hasSubDirectories :: FilePath -> IO (Maybe Bool)
hasSubDirectories file = do
  Just n <- getLinkCount file
  return $ Just (n > 2)

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

{-|
The 'getCreationTime' operation returns the
UTC time at which the file or directory was created.
The time is only available on Windows.
-}
hasSubDirectories :: FilePath -> IO (Maybe Bool)
hasSubDirectories file = do
  Just n <- getLinkCount file
  return $ Just (n > 2)

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

{-|
The 'getCreationTime' operation returns the
UTC time at which the file or directory was created.
The time is only available on Windows.
-}
hasSubDirectories file = do
  Just n <- getLinkCount file
  return $ Just (n > 2)

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

{-|
The 'getCreationTime' operation returns the
UTC time at which the file or directory was created.
The time is only available on Windows.
-}