shithub: MicroHs

Info  •  Files  •  Log  •  Branches

Handle HOME better.

--- a/src/MicroHs/Main.hs

+++ b/src/MicroHs/Main.hs

@@ -34,7 +34,7 @@

 main = do

   args <- getArgs

   dir <- fromMaybe "." <$> getMhsDir

-  home <- getEnv "HOME"

+  home <- fromMaybe "No home" <$> lookupEnv "HOME"

   case args of

    ["--version"] -> putStrLn $ "MicroHs, version " ++ mhsVersion ++ ", combinator file version " ++ combVersion

    ["--numeric-version"] -> putStrLn mhsVersion

-- 

⑨