From 9505a91668655d5c2da5c2598ea66887c749f58f Mon Sep 17 00:00:00 2001
From: malcolm <unknown>
Date: Wed, 18 Aug 2004 09:23:19 +0000
Subject: [PATCH] [project @ 2004-08-18 09:23:19 by malcolm] Add versions of
 getHomeDirectory and getAppUserDataDirectory for nhc98.
 (Note: implementation still missing for Hugs.)

---
 System/Directory.hs |    5 +++++
 1 file changed, 5 insertions(+)

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