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/ListPaths.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'app/ListPaths.hs')

diff --git a/app/ListPaths.hs b/app/ListPaths.hs
index c507d39..0c8483c 100644
--- a/app/ListPaths.hs
+++ b/app/ListPaths.hs
@@ -70,7 +70,9 @@ listPaths options = runExceptT doListPaths >>= either ioError return
 
     query = queryFrom $ optSource options
 
-    queryFrom Environment = lift $ WindowsEnv.Value False <$> fromMaybe "" <$> lookupEnv varName
+    queryFrom Environment = lift $ WindowsEnv.Value False
+        <$> fromMaybe ""
+        <$> lookupEnv varName
     queryFrom (Registry profile) = WindowsEnv.query profile varName
 
     doListPaths = do
-- 
cgit v1.2.3