From f446a04e4100ed52e9d100e8e9705d358943a4ec Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
Date: Mon, 12 Jun 2017 04:07:30 +0300
Subject: refactoring

---
 app/SetEnv.hs | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

(limited to 'app/SetEnv.hs')

diff --git a/app/SetEnv.hs b/app/SetEnv.hs
index e77b05a..6932198 100644
--- a/app/SetEnv.hs
+++ b/app/SetEnv.hs
@@ -56,14 +56,13 @@ setEnv options = runExceptT doSetEnv >>= either ioError return
   where
     varName = optName options
     varValue = optValue options
-
     forAllUsers = optGlobal options
+    skipPrompt = optYes options
+
     profile
         | forAllUsers = WindowsEnv.AllUsers
         | otherwise   = WindowsEnv.CurrentUser
 
-    skipPrompt = optYes options
-
     doSetEnv = do
         expanded <- WindowsEnv.expand varValue
         let expandable = expanded /= varValue
-- 
cgit v1.2.3