Resolve some -Wall -Werror stuff

This commit is contained in:
Evan Czaplicki 2018-04-10 16:15:59 +02:00
parent c224b36749
commit 4efbdd9710

View File

@ -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"