Changeset 5106 for src/Pugs/Junc.hs

Timestamp:

06/30/05 01:13:08 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

6965

Message:

* ArgValues? are strict now to keep in sync with other

internal data types (this should have no semantics changes)

Files:

• src/Pugs/Junc.hs (modified) (1 diff)

src/Pugs/Junc.hs

@@ -197 +197 @@
 -}
 data ApplyArg = ApplyArg
-    { argName       :: String -- ^ Name of the param that this arg is for
-    , argValue      :: Val    -- ^ Actual argument value, which may still be
-                              --     a junction
-    , argCollapsed  :: Bool   -- ^ @True@ if we have confirmed that this arg
-                              --     doesn't need any further autothreading
+    { argName       :: !String  -- ^ Name of the param that this arg is for
+    , argValue      :: !Val     -- ^ Actual argument value, which may still be
+                                --     a junction
+    , argCollapsed  :: !Bool    -- ^ @True@ if we have confirmed that this arg
+                                --     doesn't need any further autothreading
     }
     deriving (Show, Eq, Ord)