From: simonmar <unknown>
Date: Thu, 28 Feb 2002 10:15:47 +0000 (+0000)
Subject: [project @ 2002-02-28 10:15:47 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~2335
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=9c3cdff028c1a2739bf3ec866b3cd75df2a0a189;p=ghc-hetmet.git

[project @ 2002-02-28 10:15:47 by simonmar]
module names are allowed to contain '.' these days.
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 87d2ae9..5205d71 100644
--- a/ghc/compiler/ghci/InteractiveUI.hs
+++ b/ghc/compiler/ghci/InteractiveUI.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -#include "Linker.h" -#include "SchedAPI.h" #-}
 -----------------------------------------------------------------------------
--- $Id: InteractiveUI.hs,v 1.115 2002/02/13 15:56:18 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.116 2002/02/28 10:15:47 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -1152,7 +1152,7 @@ printTimes allocs psecs
 looksLikeModuleName [] = False
 looksLikeModuleName (c:cs) = isUpper c && all isAlphaNumEx cs
 
-isAlphaNumEx c = isAlphaNum c || c == '_'
+isAlphaNumEx c = isAlphaNum c || c == '_' || c == '.'
 
 maybePutStr dflags s | verbosity dflags > 0 = putStr s
 		     | otherwise	    = return ()