[ghc-hetmet.git] / ghc / misc / examples / io / io009 / Main.hs

import Directory (getDirectoryContents)
import QSort (sort)

main =
    getDirectoryContents "." >>= \ names ->
    print (sort names)