shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Add getHomeDirectory

--- a/lib/System/Directory.hs

+++ b/lib/System/Directory.hs

@@ -8,6 +8,7 @@

   createDirectory,

   createDirectoryIfMissing,

   copyFile,

+  getHomeDirectory,

   ) where

 import Prelude

 import Control.Monad(when)

@@ -14,6 +15,7 @@

 import Foreign.C.String

 import Foreign.Ptr

 import System.IO

+import System.Environment

 data DIR

 data Dirent

@@ -99,3 +101,11 @@

   file <- hGetContents hsrc  -- this also closes the file

   hPutStr hdst file

   hClose hdst

+

+getHomeDirectory :: IO FilePath

+getHomeDirectory =

+  if _isWindows then do

+    user <- getEnv "USERNAME"

+    return $ "C:/Users/" ++ user    -- it's a guess

+  else

+    getEnv "HOME"

-- 

⑨