diff options
| author | Simon Marlow <simonmar@microsoft.com> | 2007-11-07 10:06:53 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-11-07 10:06:53 +0000 |
| commit | e216a6a757dc2791e7f21251b01989feaba56e44 (patch) | |
| tree | 41d217a3f3aaab5914d3f9bbb8d53b7c656fef06 /compiler/ghci/InteractiveUI.hs | |
| parent | 54a322297a6e73ad22df21a8e597b591b6da23fa (diff) | |
| download | haskell-e216a6a757dc2791e7f21251b01989feaba56e44.tar.gz | |
FIX #1838: use System.Directory.getHomeDirectory instead of getEnv "HOME"
Diffstat (limited to 'compiler/ghci/InteractiveUI.hs')
| -rw-r--r-- | compiler/ghci/InteractiveUI.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs index d524ff143e..3adcfd395f 100644 --- a/compiler/ghci/InteractiveUI.hs +++ b/compiler/ghci/InteractiveUI.hs @@ -334,7 +334,7 @@ runGHCi paths maybe_expr = do when (read_dot_files) $ do -- Read in $HOME/.ghci - either_dir <- io (IO.try (getEnv "HOME")) + either_dir <- io (IO.try getHomeDirectory) case either_dir of Left _e -> return () Right dir -> do @@ -1535,7 +1535,7 @@ expandPath :: String -> GHCi String expandPath path = case dropWhile isSpace path of ('~':d) -> do - tilde <- io (getEnv "HOME") -- will fail if HOME not defined + tilde <- io getHomeDirectory -- will fail if HOME not defined return (tilde ++ '/':d) other -> return other |