Changeset 6793 for src/Pugs/Prim/Match.hs

Timestamp:

09/06/05 14:11:41 (3 years ago)

Author:

autrijus

Message:

* massive retab for src/, expanding all tabs into spaces,

except for the generated PIL1.hs.

Files:

• src/Pugs/Prim/Match.hs (modified) (1 diff)

src/Pugs/Prim/Match.hs

@@ -135 +135 @@
     str     <- fromVal x
     rv      <- matchOnce str
-    cxt     <- asks envContext
+    cxt     <- asks envContext
     if (not $ isSlurpyCxt cxt)
-        then return (VInt $ genericLength rv)
-        else if rxStringify rx
-            then do
+        then return (VInt $ genericLength rv)
+        else if rxStringify rx
+            then do
                 strs <- mapM fromVal rv
                 return (VList $ map VStr strs)
-            else return (VList rv)
+            else return (VList rv)
     where
     hasSubpatterns = case rx of