From: simonmar <unknown>
Date: Tue, 15 Oct 2002 13:18:51 +0000 (+0000)
Subject: [project @ 2002-10-15 13:18:51 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~1539
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0534decda4b6b70236798075801e5f478bcc0aae;p=ghc-hetmet.git

[project @ 2002-10-15 13:18:51 by simonmar]
Remove looksLikeModuleName, it is defined in Util now.
---

diff --git a/ghc/compiler/ghci/InteractiveUI.hs b/ghc/compiler/ghci/InteractiveUI.hs
index 686e17b..e245817 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.135 2002/10/14 14:54:16 simonmar Exp $
+-- $Id: InteractiveUI.hs,v 1.136 2002/10/15 13:18:51 simonmar Exp $
 --
 -- GHC Interactive User Interface
 --
@@ -1040,14 +1040,6 @@ printTimes allocs psecs
 			 int allocs <+> text "bytes")))
 
 -----------------------------------------------------------------------------
--- utils
-
-looksLikeModuleName [] = False
-looksLikeModuleName (c:cs) = isUpper c && all isAlphaNumEx cs
-
-isAlphaNumEx c = isAlphaNum c || c == '_' || c == '.'
-
------------------------------------------------------------------------------
 -- reverting CAFs
 	
 revertCAFs :: IO ()