From 1fd1f44fcc81149b286992dd13b3128d42c4736e Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Tue, 15 Nov 2005 10:43:32 +0000
Subject: extended cf syntax; Det experiment

---
 src/GF/Infra/Ident.hs | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

(limited to 'src/GF/Infra')

diff --git a/src/GF/Infra/Ident.hs b/src/GF/Infra/Ident.hs
index 5259af228..5ed860990 100644
--- a/src/GF/Infra/Ident.hs
+++ b/src/GF/Infra/Ident.hs
@@ -5,9 +5,9 @@
 -- Stability   : (stable)
 -- Portability : (portable)
 --
--- > CVS $Date: 2005/04/21 16:22:35 $ 
--- > CVS $Author: bringert $
--- > CVS $Revision: 1.7 $
+-- > CVS $Date: 2005/11/15 11:43:33 $ 
+-- > CVS $Author: aarne $
+-- > CVS $Revision: 1.8 $
 --
 -- (Description of the module)
 -----------------------------------------------------------------------------
@@ -73,7 +73,10 @@ wildIdent :: Ident
 wildIdent = identW
 
 isWildIdent :: Ident -> Bool
-isWildIdent = (== wildIdent)
+isWildIdent x = case x of
+  IW -> True
+  IC "_" -> True
+  _ -> False
 
 newIdent :: Ident
 newIdent = identC "#h"
-- 
cgit v1.2.3