Commit 2765fcf6 authored by Alan Zimmerman's avatar Alan Zimmerman

Remove warnings for -fwarn-incomplete-patterns

And remove one unused bind.

See
https://phabricator.haskell.org/rGHCc0ad5bc03e02ce0d7d545599e4b1a68a6f727f2b
for concerns raised prompting this change.
parent 4681f559
Pipeline #207 failed with stages
in 56 seconds
...@@ -49,7 +49,6 @@ ...@@ -49,7 +49,6 @@
{-# OPTIONS_GHC -fno-warn-tabs #-} {-# OPTIONS_GHC -fno-warn-tabs #-}
{-# OPTIONS_GHC -fno-warn-missing-signatures #-} {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
{-# OPTIONS_GHC -fno-warn-overlapping-patterns #-} {-# OPTIONS_GHC -fno-warn-overlapping-patterns #-}
{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
-- The above warning suppression flags are a temporary kludge. -- The above warning suppression flags are a temporary kludge.
-- While working on this module you are encouraged to remove it and fix -- While working on this module you are encouraged to remove it and fix
-- any warnings in the module. See -- any warnings in the module. See
...@@ -1358,12 +1357,12 @@ lex_string_prag mkTok span _buf _len ...@@ -1358,12 +1357,12 @@ lex_string_prag mkTok span _buf _len
lex_string_tok :: Action lex_string_tok :: Action
lex_string_tok span buf _len = do lex_string_tok span buf _len = do
tok <- lex_string "" tok <- lex_string ""
end <- getSrcLoc
(AI end bufEnd) <- getInput (AI end bufEnd) <- getInput
let let
tok' = case tok of tok' = case tok of
ITprimstring _ bs -> ITprimstring src bs ITprimstring _ bs -> ITprimstring src bs
ITstring _ s -> ITstring src s ITstring _ s -> ITstring src s
_ -> panic "lex_string_tok"
src = lexemeToString buf (cur bufEnd - cur buf) src = lexemeToString buf (cur bufEnd - cur buf)
return (L (mkRealSrcSpan (realSrcSpanStart span) end) tok') return (L (mkRealSrcSpan (realSrcSpanStart span) end) tok')
...@@ -2321,7 +2320,7 @@ alternativeLayoutRuleToken t ...@@ -2321,7 +2320,7 @@ alternativeLayoutRuleToken t
setNextToken t setNextToken t
lexTokenAlr lexTokenAlr
-} -}
(_, ALRLayout _ col : ls, Just expectingOCurly) (_, ALRLayout _ col : _ls, Just expectingOCurly)
| (thisCol > col) || | (thisCol > col) ||
(thisCol == col && (thisCol == col &&
isNonDecreasingIntentation expectingOCurly) -> isNonDecreasingIntentation expectingOCurly) ->
...@@ -2679,6 +2678,7 @@ commentToAnnotation (L l (ITdocOptions s)) = L l (AnnDocOptions s) ...@@ -2679,6 +2678,7 @@ commentToAnnotation (L l (ITdocOptions s)) = L l (AnnDocOptions s)
commentToAnnotation (L l (ITdocOptionsOld s)) = L l (AnnDocOptionsOld s) commentToAnnotation (L l (ITdocOptionsOld s)) = L l (AnnDocOptionsOld s)
commentToAnnotation (L l (ITlineComment s)) = L l (AnnLineComment s) commentToAnnotation (L l (ITlineComment s)) = L l (AnnLineComment s)
commentToAnnotation (L l (ITblockComment s)) = L l (AnnBlockComment s) commentToAnnotation (L l (ITblockComment s)) = L l (AnnBlockComment s)
commentToAnnotation _ = panic "commentToAnnotation"
-- --------------------------------------------------------------------- -- ---------------------------------------------------------------------
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment