Changeset 5255 for src/Pugs/Bind.hs

Timestamp:

07/06/05 08:29:42 (4 years ago)

Author:

chromatic

svk:copy_cache_prev:

7266

Message:

Show name of sub with mismatched parameters in invocant binding failure message.
Comment typo fix in Pugs.Lexer.

Files:

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

src/Pugs/Bind.hs

@@ -213 +213 @@
         fail $ "Wrong number of invocant parameters: "
             ++ (show $ act) ++ " actual, "
-            ++ (show $ act + cnt) ++ " expected"
+            ++ (show $ act + cnt) ++ " expected in "
+            ++ (show $ subName sub)
             
     let (boundReq, boundOpt) = partition (\x -> isRequired (fst x)) bindings -- bound params which are required