From 87ae152b71317b99bcbeeab80145ae1f3cf22d83 Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
Date: Sat, 20 Aug 2016 15:54:43 +0300
Subject: fix HLint warnings

---
 apps/AddPath.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'apps/AddPath.hs')

diff --git a/apps/AddPath.hs b/apps/AddPath.hs
index 1f80f70..1b27b84 100644
--- a/apps/AddPath.hs
+++ b/apps/AddPath.hs
@@ -53,7 +53,7 @@ addPath :: Options -> IO ()
 addPath options = do
     oldValue <- Env.query profile varName
     let oldPaths = Env.pathSplit $ fromMaybe "" oldValue
-    let newPaths = union oldPaths pathsToAdd
+    let newPaths = oldPaths `union` pathsToAdd
     when (length oldPaths /= length newPaths) $ do
         let newValue = Env.pathJoin newPaths
         let promptAnd = if skipPrompt
-- 
cgit v1.2.3