defer getEnv call in wrapper

haskell · Jan 29, 2021 · 8c973f5 · 8c973f5
1 parent 5f5e029
commit 8c973f5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/wrappers/cabal.hs b/wrappers/cabal.hs
@@ -9,9 +9,9 @@ import System.IO (openFile, hClose, hPutStrLn, IOMode(..))
 main :: IO ()
 main = do
   args <- getArgs
-  output_file <- getEnv "HIE_BIOS_OUTPUT"
   case args of
     "--interactive":_ -> do
+      output_file <- getEnv "HIE_BIOS_OUTPUT"
       h <- openFile output_file AppendMode
       getCurrentDirectory >>= hPutStrLn h
       mapM_ (hPutStrLn h) args