directoryContent :: FilePath -> IO [FileStat]
directoryContent p = do
    allFiles <- showDirectory p
    list <- mapM createFileStat (prefixSet (p ++ "/") allFiles)
    return list


-- mapping from url paths to mount paths
directoryContent :: FilePath -> IO [FileStat]
directoryContent p = do
    allFiles <- showDirectory p
    list <- mapM createFileStat (prefixSet (p ++ "/") allFiles)
    return list


-- mapping from url paths to mount paths
directoryContent p = do
    allFiles <- showDirectory p
    list <- mapM createFileStat (prefixSet (p ++ "/") allFiles)
    return list


-- mapping from url paths to mount paths