Changeset 7479 for src/Pugs.hs

Timestamp:

10/09/05 17:34:35 (3 years ago)

Author:

autrijus

Message:

* Pugs.hs: refactor out noEnvDebug so external programs

can elect to run without debug traces.

Files:

• src/Pugs.hs (modified) (4 diffs)

src/Pugs.hs

@@ -19 +19 @@
     intro,
     initializeShell,
-    envDebug,
     getCommand,
     pretty,
@@ -123 +122 @@
 repLoop = do
     initializeShell
-    env <- liftSTM . newTVar . (\e -> e{ envDebug = Nothing }) =<< tabulaRasa "<interactive>"
+    env <- liftSTM . newTVar . noEnvDebug =<< tabulaRasa "<interactive>"
     fix $ \loop -> do
         command <- getCommand
@@ -369 +368 @@
 doRun :: String -> [String] -> String -> IO ()
 doRun = do
-    runProgramWith (\e -> e{ envDebug = Nothing }) end
+    runProgramWith noEnvDebug end
     where
     end err@(VError _ _)  = do
@@ -379 +378 @@
         exitWith exit
     end _ = return ()
+
+noEnvDebug :: Env -> Env
+noEnvDebug e = e{ envDebug = Nothing }
 
 runProgramWith ::