Accept underscores in the module parser. (Thanks spinda for the fix.)
authorEdward Z. Yang <ezyang@cs.stanford.edu>
Thu, 3 Sep 2015 21:16:03 +0000 (14:16 -0700)
committerEdward Z. Yang <ezyang@cs.stanford.edu>
Thu, 3 Sep 2015 21:16:03 +0000 (14:16 -0700)
Signed-off-by: Edward Z. Yang <ezyang@cs.stanford.edu>
compiler/main/DynFlags.hs

index 0dacb0c..6b44e16 100644 (file)
@@ -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