Changeset 5464 for src/Pugs/Bind.hs

Timestamp:

07/12/05 05:34:56 (3 years ago)

Author:

autrijus

svk:copy_cache_prev:

7349

Message:

* remove dead code in Bind.hs.

Files:

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

src/Pugs/Bind.hs

@@ -142 +142 @@
 
 {-|
-(Does this even get used? It seems to be a leftover fragment of 
-'doBindArray'...)
--}
-bindEmpty :: Param -> MaybeError (Param, Exp)
-bindEmpty p = case paramName p of
-    ('@':_) -> return (p, emptyArrayExp)
-    ('$':_) -> fail $ "Unbound slurpy scalar: " ++ show p
-    (x:_)   -> internalError $ "bindEmpty: unexpected char: " ++ (show x)
-    []      -> internalError $ "bindEmpty: empty string encountered"
-
-{-|
 Return @True@ if the given expression represents a pair (i.e. it uses the
 \"=>\" pair constructor).