Changeset 4825 for src/Main.hs

Timestamp:

06/19/05 00:00:21 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6641

Message:

* @*END support!

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -119 +119 @@
 userDefined (MkPad pad) = MkPad $ Map.filterWithKey doFilter pad
     where
-    doFilter (_:'*':_) _ = False
-    doFilter _ _         = True
+    doFilter "@*END" _      = True
+    doFilter (_:'*':_) _    = False
+    doFilter _ _            = True
 
 repLoop :: IO ()