From: simonmar <unknown>
Date: Wed, 27 Jun 2001 11:11:03 +0000 (+0000)
Subject: [project @ 2001-06-27 11:11:03 by simonmar]
X-Git-Tag: Approximately_9120_patches~1703
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6dad6315d07e715151164e3202a98110a641218a;p=ghc-hetmet.git

[project @ 2001-06-27 11:11:03 by simonmar]
allow '.' in a module name
---

diff --git a/ghc/compiler/main/GetImports.hs b/ghc/compiler/main/GetImports.hs
index 84d6831..1488aa3 100644
--- a/ghc/compiler/main/GetImports.hs
+++ b/ghc/compiler/main/GetImports.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: GetImports.hs,v 1.7 2001/05/29 01:07:00 sof Exp $
+-- $Id: GetImports.hs,v 1.8 2001/06/27 11:11:03 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -60,7 +60,7 @@ getImports s
         f si ni me [] = (nub si, nub ni, me)
 
         mkMN str = mkModuleName (takeWhile isModId (reverse str))
-        isModId c = isAlphaNum c || c `elem` "'_"
+        isModId c = isAlphaNum c || c `elem` "'._"
 
 
 -- remove literals and comments from a string, producing a