createFileStat :: FilePath -> IO FileStat
createFileStat path = do
    isDir <- doesDirectoryExist path
    return $ FileStat loc name isDir where
        loc = takeDirectory path
        name = takeFileName path
createFileStat :: FilePath -> IO FileStat
createFileStat path = do
    isDir <- doesDirectoryExist path
    return $ FileStat loc name isDir where
        loc = takeDirectory path
        name = takeFileName path
createFileStat path = do
    isDir <- doesDirectoryExist path
    return $ FileStat loc name isDir where
        loc = takeDirectory path
        name = takeFileName path