From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 4 Nov 2009 14:40:32 +0000 (+0000)
Subject: add '-' to the chars allowed in C header file names
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=5205edda3f16a6e93e5e0749f3dcb3f7831a317e;p=ghc-hetmet.git

add '-' to the chars allowed in C header file names
---

diff --git a/compiler/parser/RdrHsSyn.lhs b/compiler/parser/RdrHsSyn.lhs
index 92c7415..c785c22 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)