diff options
Diffstat (limited to 'Coolbal/Directory.hs')
-rw-r--r-- | Coolbal/Directory.hs | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/Coolbal/Directory.hs b/Coolbal/Directory.hs new file mode 100644 index 0000000..c2a53cc --- /dev/null +++ b/Coolbal/Directory.hs @@ -0,0 +1,13 @@ +module Coolbal.Directory where + +import System.Environment (lookupEnv) +import System.Exit (die) +import System.IO.Unsafe (unsafePerformIO) + + +currentHomeDirectory :: String +currentHomeDirectory = unsafePerformIO $ do + var <- lookupEnv "HOME" + case var of + Just s -> return s + Nothing -> die "Cannot get home directory from $HOME environment variable" |