git.iko.soy/elk
on master help sign in
Resolve some -Wall -Werror stuff
4efbdd9Evan Czaplicki
ui/terminal/src/Terminal/Args.hs+2−4
compare with master
unifiedsplit
@@ -13,8 +13,6 @@ module Terminal.Args
13 where
13 where
14
14
15
15
16−import Control.Monad (filterM, when)
17−import qualified Data.Char as Char
18import qualified Data.List as List
16import qualified Data.List as List
19import qualified Data.Maybe as Maybe
17import qualified Data.Maybe as Maybe
20import qualified System.Directory as Dir
18import qualified System.Directory as Dir
@@ -99,8 +97,8 @@ complex intro outro interfaces =
99
97
100
98
101maybeAutoComplete :: [String] -> (Int -> [String] -> IO [String]) -> IO ()
99maybeAutoComplete :: [String] -> (Int -> [String] -> IO [String]) -> IO ()
102−maybeAutoComplete args getSuggestions =
100+maybeAutoComplete argStrings getSuggestions =
103− if length args /= 3 then
101+ if length argStrings /= 3 then
104 return ()
102 return ()
105 else
103 else
106 do maybeLine <- Env.lookupEnv "COMP_LINE"
104 do maybeLine <- Env.lookupEnv "COMP_LINE"