[project @ 2004-08-18 09:23:19 by malcolm]

Add versions of getHomeDirectory and getAppUserDataDirectory for nhc98.
(Note: implementation still missing for Hugs.)

diff --git a/System/Directory.hs b/System/Directory.hs
index 69acc08..fa6265b 100644 (file)
--- a/System/Directory.hs
+++ b/System/Directory.hs
@@ -60,6 +60,11 @@ module System.Directory
 
 #ifdef __NHC__
 import Directory
+getHomeDirectory :: IO FilePath
+getHomeDirectory = getEnv "HOME"
+getAppUserDataDirectory :: String -> IO FilePath
+getAppUserDataDirectory appName = do path <- getEnv "HOME"
+                                     return (path++'/':'.':appName)
 #elif defined(__HUGS__)
 import Hugs.Directory
 #else