, getDirectoryContents -- :: FilePath -> IO [FilePath]
, getCurrentDirectory -- :: IO FilePath
, setCurrentDirectory -- :: FilePath -> IO ()
+
+ -- * Pre-defined directories
, getHomeDirectory
, getAppUserDataDirectory
, getUserDocumentsDirectory
#ifdef __NHC__
import Directory
+import System (getEnv)
getHomeDirectory :: IO FilePath
getHomeDirectory = getEnv "HOME"
getAppUserDataDirectory :: String -> IO FilePath