From b1aa17616f56517fa83607296c25ee6c333968c1 Mon Sep 17 00:00:00 2001
From: tv <tv@shackspace.de>
Date: Sun, 28 Dec 2014 22:16:47 +0100
Subject: purge a bit of legacy & cruft

There's still both around, though..^_^
---
 test5.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'test5.hs')

diff --git a/test5.hs b/test5.hs
index ec90299..5a682bd 100644
--- a/test5.hs
+++ b/test5.hs
@@ -83,8 +83,8 @@ cleanup = do
 startup :: IO ()
 startup = do
 
-    setEnv "HOME" =<< getEnv "OLDHOME"
-
+    -- load-env hack
+    maybe (return ()) (setEnv "HOME") =<< lookupEnv "OLDHOME"
 
     hSetEcho stdin False
     hSetBuffering stdin NoBuffering
-- 
cgit v1.2.3