diff options
| author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-06-27 18:56:32 +0100 |
|---|---|---|
| committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-06-27 18:56:32 +0100 |
| commit | 0a76803dffa5320f0b06dd1d76de0d0bc540880e (patch) | |
| tree | 75913ec23e9e969b0c4f6fc4e4a0af16700fb15b /libraries/base/System/Environment.hs | |
| parent | 9785fb9b36a871fb021d1c833faeeaeb76df3a0c (diff) | |
| download | haskell-0a76803dffa5320f0b06dd1d76de0d0bc540880e.tar.gz | |
Add System.Environment.getExecutablePath (#7029)
Patch by Johan Tibell <johan.tibell@gmail.com>
Diffstat (limited to 'libraries/base/System/Environment.hs')
| -rw-r--r-- | libraries/base/System/Environment.hs | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/libraries/base/System/Environment.hs b/libraries/base/System/Environment.hs index 7be95adb60..1f3321327e 100644 --- a/libraries/base/System/Environment.hs +++ b/libraries/base/System/Environment.hs @@ -17,10 +17,11 @@ module System.Environment ( - getArgs, -- :: IO [String] - getProgName, -- :: IO String - getEnv, -- :: String -> IO String - lookupEnv, -- :: String -> IO (Maybe String) + getArgs, -- :: IO [String] + getProgName, -- :: IO String + getExecutablePath, -- :: IO FilePath + getEnv, -- :: String -> IO String + lookupEnv, -- :: String -> IO (Maybe String) #ifndef __NHC__ withArgs, withProgName, @@ -61,6 +62,8 @@ import System ) #endif +import System.Environment.ExecutablePath + #ifdef mingw32_HOST_OS # if defined(i386_HOST_ARCH) # define WINDOWS_CCONV stdcall |