[commit: ghc] wip/lexer-warnings: Remove warnings for -fwarn-incomplete-patterns (2765fcf)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : wip/lexer-warnings
Link       : http://ghc.haskell.org/trac/ghc/changeset/2765fcf6b8846be42d014ef4e29ad6c3aa87b79d/ghc

>---------------------------------------------------------------

commit 2765fcf6b8846be42d014ef4e29ad6c3aa87b79d
Author: Alan Zimmerman <alan.zimm at gmail.com>
Date:   Mon Jul 6 11:13:05 2015 +0200

    Remove warnings for -fwarn-incomplete-patterns
    
    And remove one unused bind.
    
    See
    https://phabricator.haskell.org/rGHCc0ad5bc03e02ce0d7d545599e4b1a68a6f727f2b
    for concerns raised prompting this change.


>---------------------------------------------------------------

2765fcf6b8846be42d014ef4e29ad6c3aa87b79d
 compiler/parser/Lexer.x | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/parser/Lexer.x b/compiler/parser/Lexer.x
index a73487b..98d167d 100644
--- a/compiler/parser/Lexer.x
+++ b/compiler/parser/Lexer.x
@@ -49,7 +49,6 @@
 {-# OPTIONS_GHC -fno-warn-tabs #-}
 {-# OPTIONS_GHC -fno-warn-missing-signatures #-}
 {-# OPTIONS_GHC -fno-warn-overlapping-patterns #-}
-{-# OPTIONS_GHC -fno-warn-incomplete-patterns #-}
 -- The above warning suppression flags are a temporary kludge.
 -- While working on this module you are encouraged to remove it and fix
 -- any warnings in the module. See
@@ -1358,12 +1357,12 @@ lex_string_prag mkTok span _buf _len
 lex_string_tok :: Action
 lex_string_tok span buf _len = do
   tok <- lex_string ""
-  end <- getSrcLoc
   (AI end bufEnd) <- getInput
   let
     tok' = case tok of
             ITprimstring _ bs -> ITprimstring src bs
             ITstring _ s -> ITstring src s
+            _ -> panic "lex_string_tok"
     src = lexemeToString buf (cur bufEnd - cur buf)
   return (L (mkRealSrcSpan (realSrcSpanStart span) end) tok')
 
@@ -2321,7 +2320,7 @@ alternativeLayoutRuleToken t
                     setNextToken t
                     lexTokenAlr
              -}
-             (_, ALRLayout _ col : ls, Just expectingOCurly)
+             (_, ALRLayout _ col : _ls, Just expectingOCurly)
               | (thisCol > col) ||
                 (thisCol == col &&
                  isNonDecreasingIntentation expectingOCurly) ->
@@ -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 (ITlineComment s))     = L l (AnnLineComment s)
 commentToAnnotation (L l (ITblockComment s))    = L l (AnnBlockComment s)
+commentToAnnotation _                           = panic "commentToAnnotation"
 
 -- ---------------------------------------------------------------------