От: | Аноним | ||
Дата: | 02.08.10 08:28 | ||
Оценка: |
module Hserver(main) where
import IO
import Directory
main = do dirContent <- (getCurrentDirectory >>= getDirectoryContents)
let filteredDirContent = filter (`notElem` [".", ".."]) dirContent
printFileDirContent filteredDirContent
printFileDirContent (file:dirContent) = do putStr file
putStr ","
printFileDirContent dirContent