diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-09-03 14:16:03 -0700 |
|---|---|---|
| committer | Edward Z. Yang <ezyang@cs.stanford.edu> | 2015-09-03 14:16:03 -0700 |
| commit | 34b106f65325d7642ad37ac49d2b9b90dd7684e6 (patch) | |
| tree | 885d666ac48eba15560f44983a20d70cae6b2b49 | |
| parent | 5dc88b72e4c3cc066e19ea5ece98ce152cd0ca25 (diff) | |
| download | haskell-34b106f65325d7642ad37ac49d2b9b90dd7684e6.tar.gz | |
Accept underscores in the module parser. (Thanks spinda for the fix.)
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
| -rw-r--r-- | compiler/main/DynFlags.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/main/DynFlags.hs b/compiler/main/DynFlags.hs index 0dacb0c579..6b44e16c7a 100644 --- a/compiler/main/DynFlags.hs +++ b/compiler/main/DynFlags.hs @@ -3718,7 +3718,7 @@ clearPkgConf = upd $ \s -> s { extraPkgConfs = const [] } parseModuleName :: ReadP ModuleName parseModuleName = fmap mkModuleName - $ munch1 (\c -> isAlphaNum c || c `elem` ".") + $ munch1 (\c -> isAlphaNum c || c `elem` "_.") parsePackageFlag :: (String -> PackageArg) -- type of argument -> String -- string to parse |