diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2009-11-04 14:40:32 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2009-11-04 14:40:32 +0000 |
| commit | 5205edda3f16a6e93e5e0749f3dcb3f7831a317e (patch) | |
| tree | bd22d7aa3f73dcb2cea692bf523dfed4a8ea8ed5 /compiler | |
| parent | c3d5b52386b0aed30391afeadc6cd0317a82ca92 (diff) | |
| download | haskell-5205edda3f16a6e93e5e0749f3dcb3f7831a317e.tar.gz | |
add '-' to the chars allowed in C header file names
Diffstat (limited to 'compiler')
| -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 92c74150b5..c785c22151 100644 --- a/compiler/parser/RdrHsSyn.lhs +++ b/compiler/parser/RdrHsSyn.lhs @@ -1012,7 +1012,7 @@ parseCImport cconv safety nm str = mk = CImport cconv safety - hdr_char c = isAscii c && (isAlphaNum c || c `elem` "._") + hdr_char c = isAscii c && (isAlphaNum c || c `elem` "._-") id_char c = isAlphaNum c || c == '_' cimp nm = (ReadP.char '&' >> skipSpaces >> CLabel <$> cid) |