diff options
| author | Thomas Miedema <thomasmiedema@gmail.com> | 2015-07-04 15:13:19 +0200 |
|---|---|---|
| committer | Thomas Miedema <thomasmiedema@gmail.com> | 2015-08-09 16:09:25 +0200 |
| commit | f04c7bedbbeb2d530c22a3fec050d4451bbd8599 (patch) | |
| tree | 704760efb9a3d513affa604c74bdf83022df70ff /compiler/cmm | |
| parent | 2c4a7d3abb4e35b0cd8c5596b6ada50b9e34bfa8 (diff) | |
| download | haskell-f04c7bedbbeb2d530c22a3fec050d4451bbd8599.tar.gz | |
Fix unused-matches warnings in CmmLex.x
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CmmLex.x | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/compiler/cmm/CmmLex.x b/compiler/cmm/CmmLex.x index 89ae796c70..a9ad3e5443 100644 --- a/compiler/cmm/CmmLex.x +++ b/compiler/cmm/CmmLex.x @@ -189,10 +189,10 @@ pop :: Action pop _span _buf _len = popLexState >> lexToken special_char :: Action -special_char span buf len = return (L span (CmmT_SpecChar (currentChar buf))) +special_char span buf _len = return (L span (CmmT_SpecChar (currentChar buf))) kw :: CmmToken -> Action -kw tok span buf len = return (L span tok) +kw tok span _buf _len = return (L span tok) global_regN :: (Int -> GlobalReg) -> Action global_regN con span buf len @@ -201,7 +201,7 @@ global_regN con span buf len n = parseUnsignedInteger buf' (len-1) 10 octDecDigit global_reg :: GlobalReg -> Action -global_reg r span buf len = return (L span (CmmT_GlobalReg r)) +global_reg r span _buf _len = return (L span (CmmT_GlobalReg r)) strtoken :: (String -> CmmToken) -> Action strtoken f span buf len = @@ -319,7 +319,7 @@ lexToken = do AlexSkip inp2 _ -> do setInput inp2 lexToken - AlexToken inp2@(end,buf2) len t -> do + AlexToken inp2@(end,_buf2) len t -> do setInput inp2 let span = mkRealSrcSpan loc1 end span `seq` setLastToken span len |