From: malcolm <unknown>
Date: Wed, 18 Aug 2004 09:23:19 +0000 (+0000)
Subject: [project @ 2004-08-18 09:23:19 by malcolm]
X-Git-Tag: nhc98-1-18-release~271
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9505a91668655d5c2da5c2598ea66887c749f58f;p=haskell-directory.git

[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
--- 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