diff options
| author | unknown <simonpj@.europe.corp.microsoft.com> | 2011-04-14 10:53:23 +0100 |
|---|---|---|
| committer | unknown <simonpj@.europe.corp.microsoft.com> | 2011-04-14 10:53:23 +0100 |
| commit | ce2ea8274f72199ac32d5219fcadb0aaeb968707 (patch) | |
| tree | 34d0904a62e1f4922c842dff230c7c959c73f623 /compiler/parser | |
| parent | 8419203b7eb5aa4bb13f8d1263632de4d10a4048 (diff) | |
| download | haskell-ce2ea8274f72199ac32d5219fcadb0aaeb968707.tar.gz | |
Small fixes to the generics branch to get rid of warnings,
plus a false ASSERT failure
Diffstat (limited to 'compiler/parser')
| -rw-r--r-- | compiler/parser/RdrHsSyn.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs index 052b9a689c..7aa2654ca9 100644 --- a/compiler/parser/RdrHsSyn.lhs +++ b/compiler/parser/RdrHsSyn.lhs @@ -822,7 +822,7 @@ checkValSig lhs@(L l _) ty -- Sadly 'foreign import' still barfs 'parse error' because 'import' is a keyword looks_like s (L _ (HsVar v)) = v == s looks_like s (L _ (HsApp lhs _)) = looks_like s lhs - looks_like s _ = False + looks_like _ _ = False foreign_RDR = mkUnqual varName (fsLit "foreign") generic_RDR = mkUnqual varName (fsLit "generic") |