Changeset 14547 for src/Pugs/Eval

Timestamp:

10/30/06 04:04:52 (2 years ago)

Author:

audreyt

Message:

* Pugs.Prim: Also export IO::close and Socket::close so that

close $fh;
close $dh;
close $sh;

all DWIM.

* Also fix the parser error that mistook "(IO::Dir:)" in the

Prim.hs decl table as "(IO : Dir)".

Files:

• src/Pugs/Eval/Var.hs (modified) (1 diff)

src/Pugs/Eval/Var.hs

@@ -310 +310 @@
     doFindSub slurpLens subSyms = do
         subs' <- subs slurpLens subSyms
-        -- traceM (unlines $ map (\(x, y) -> show (x, subParams y)) subs')
+        -- warn (unlines $ map (\(x, y) -> show (x, subParams y)) subs') ""
         return $ case sort subs' of
             ((_, sub):_)    -> Just sub