summary |
shortlog |
log |
commit | commitdiff |
tree
raw |
patch |
inline | side by side (from parent 1:
54cfece)
Add versions of getHomeDirectory and getAppUserDataDirectory for nhc98.
(Note: implementation still missing for Hugs.)
#ifdef __NHC__
import 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
#elif defined(__HUGS__)
import Hugs.Directory
#else