Changeset 8474 for src/Pugs.hs

Timestamp:

12/27/05 08:17:06 (3 years ago)

Author:

audreyt

Message:

* In Pugs shell, drop all trailing whitespace and comma in

interactive evaluated code. Suggested by luqui++.

Files:

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

src/Pugs.hs

@@ -325 +325 @@
         env <- liftSTM $ readTVar menv
         return $ envBody $ parseProgram env "<interactive>" $
-          (decodeUTF8 prog)
+          (dropTrailingSemi $ decodeUTF8 prog)
+    dropTrailingSemi = reverse . dropWhile (`elem` " \t\r\n;") . reverse
     theEnv = do
         ref <- if runOptSeparately opts