From 6dad6315d07e715151164e3202a98110a641218a Mon Sep 17 00:00:00 2001 From: simonmar Date: Wed, 27 Jun 2001 11:11:03 +0000 Subject: [PATCH] [project @ 2001-06-27 11:11:03 by simonmar] allow '.' in a module name --- ghc/compiler/main/GetImports.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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 -- 1.7.10.4