gren-lang/compiler
1
1
Fork 0
mirror of https://github.com/gren-lang/compiler.git synced 2024-09-19 04:47:55 +03:00
Code Issues Actions Packages Projects Releases Wiki Activity

Resolve some -Wall -Werror stuff

Browse Source
This commit is contained in:
Evan Czaplicki 2018-04-10 16:15:59 +02:00
parent c224b36749
commit 4efbdd9710
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ui/terminal/src/Terminal/Args.hs
View File

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