From 3dafff5813b9956713abe8b1b94388c7d6bac60a Mon Sep 17 00:00:00 2001
From: Egor Tensin <Egor.Tensin@gmail.com>
Date: Sat, 20 Aug 2016 17:58:58 +0300
Subject: code style

---
 apps/AddPath.hs  | 4 ++--
 apps/ListPath.hs | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'apps')

diff --git a/apps/AddPath.hs b/apps/AddPath.hs
index da68009..93ea212 100644
--- a/apps/AddPath.hs
+++ b/apps/AddPath.hs
@@ -40,8 +40,8 @@ optionParser = Options
     optGlobalDesc = switch
          $ long "global" <> short 'g'
         <> help "Add for all users"
-    optPathsDesc = many
-         $ argument str $ metavar "PATH"
+    optPathsDesc = many $ argument str
+         $ metavar "PATH"
         <> help "Directories to add"
 
 main :: IO ()
diff --git a/apps/ListPath.hs b/apps/ListPath.hs
index 6432455..6bb8a46 100644
--- a/apps/ListPath.hs
+++ b/apps/ListPath.hs
@@ -23,7 +23,7 @@ shouldListPath ExistingOnly = doesDirectoryExist
 shouldListPath MissingOnly  = fmap not . doesDirectoryExist
 
 data Options = Options
-    { optName :: Env.VarName
+    { optName       :: Env.VarName
     , optWhichPaths :: WhichPaths
     } deriving (Eq, Show)
 
-- 
cgit v1.2.3