Changeset 2771 for src/Pugs/Bind.hs

Timestamp:

05/06/05 15:07:18 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

4271

Message:

* remove Parens form as it is not used anymore

Files:

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

src/Pugs/Bind.hs

@@ -130 +130 @@
 
     let unboundOptPrms = optPrms \\ (map fst boundOpt) -- unbound optParams are allPrms - boundPrms
-        optPrmsDefaults = map paramDefault $ unboundOptPrms -- get a list of default values
-        boundDefOpts = unboundOptPrms `zip` (map Parens optPrmsDefaults) -- turn into exprs, so that +$y = $x will work
+        optPrmsDefaults = [ Syn "default" [paramDefault prm] | prm <- unboundOptPrms ] -- get a list of default values
+        boundDefOpts = unboundOptPrms `zip` optPrmsDefaults -- turn into exprs, so that +$y = $x will work
         
     return sub {