From 4efbdd97109e8709da325b29b7ebf7dd60ddcd4a Mon Sep 17 00:00:00 2001
From: Evan Czaplicki <evancz@users.noreply.github.com>
Date: Tue, 10 Apr 2018 16:15:59 +0200
Subject: [PATCH] Resolve some -Wall -Werror stuff

---
 ui/terminal/src/Terminal/Args.hs | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/ui/terminal/src/Terminal/Args.hs b/ui/terminal/src/Terminal/Args.hs
index efcfb45f..806b0053 100644
--- a/ui/terminal/src/Terminal/Args.hs
+++ b/ui/terminal/src/Terminal/Args.hs
@@ -13,8 +13,6 @@ module Terminal.Args
   where
 
 
-import Control.Monad (filterM, when)
-import qualified Data.Char as Char
 import qualified Data.List as List
 import qualified Data.Maybe as Maybe
 import qualified System.Directory as Dir
@@ -99,8 +97,8 @@ complex intro outro interfaces =
 
 
 maybeAutoComplete :: [String] -> (Int -> [String] -> IO [String]) -> IO ()
-maybeAutoComplete args getSuggestions =
-  if length args /= 3 then
+maybeAutoComplete argStrings getSuggestions =
+  if length argStrings /= 3 then
     return ()
   else
     do  maybeLine <- Env.lookupEnv "COMP_LINE"