Changeset 6793 for src/Pugs/AST/Internals.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/AST/Internals.hs (modified) (4 diffs)

src/Pugs/AST/Internals.hs

@@ -702 +702 @@
 instance Show VJunc where
     show (MkJunc jtype _ set) =
-        (show jtype) ++ "(" ++
-            (foldl (\x y ->
-                if x == "" then show y
-                else x ++ "," ++ show y)
-            "" $ Set.elems set) ++ ")"
+        (show jtype) ++ "(" ++
+            (foldl (\x y ->
+                if x == "" then show y
+                else x ++ "," ++ show y)
+            "" $ Set.elems set) ++ ")"
 
 {-|
@@ -1099 +1099 @@
 
 lookupPad key (MkPad map) = case Map.lookup (possiblyFixOperatorName key) map of
-        Just xs -> Just [tvar | (_, tvar) <- xs]
-        Nothing -> Nothing
+        Just xs -> Just [tvar | (_, tvar) <- xs]
+        Nothing -> Nothing
 
 {-|
@@ -1654 +1654 @@
         , rxGlobal    :: !Bool  -- ^ Flag indicating \'global\' (match-all)
         , rxNumSubs   :: !Int   -- ^ The number of subpatterns present.
-            , rxStringify :: !Bool
+            , rxStringify :: !Bool
         , rxRuleStr   :: !String -- ^ The rule string, for user reference.
         , rxAdverbs   :: !Val
@@ -1662 +1662 @@
         { rxRule      :: !String -- ^ The rule string
         , rxGlobal    :: !Bool   -- ^ Flag indicating \'global\' (match-all)
-            , rxStringify :: !Bool
+            , rxStringify :: !Bool
         , rxAdverbs   :: !Val
         }