Changeset 16610

Timestamp:

06/02/07 10:42:42 (18 months ago)

Author:

gaal

Message:

* factor out a function for fresh envDebug maps

Location:

src

Files:

• Pugs.hs (modified) (2 diffs)
• Pugs/AST/Internals.hs (modified) (2 diffs)

src/Pugs.hs

@@ -63 +63 @@
 run' :: (?debugInfo :: DebugInfo) => [String] -> IO ()
 run' ("-d":rest)                 = do
-    info <- fmap Just (io $ newTVarIO Map.empty)
+    info <- newDebugInfo
     let ?debugInfo = info
     run' rest
@@ -332 +332 @@
                 else return menv
         debug <- if runOptDebug opts
-                then fmap Just (io $ newTVarIO Map.empty)
+                then newDebugInfo
                 else return Nothing
         stm $ modifyTVar ref $ \e -> e{ envDebug = debug }

src/Pugs/AST/Internals.hs

@@ -89 +89 @@
     anyToVal, vvToVal, anyFromVal, -- for circularity
 
-    DebugInfo, _Sym, _Var -- String -> ByteString constructors
+    DebugInfo, newDebugInfo, _Sym, _Var -- String -> ByteString constructors
 ) where
 
@@ -1334 +1334 @@
 
 type DebugInfo = Maybe (TVar (Map ID String))
+
+newDebugInfo :: IO DebugInfo
+newDebugInfo = fmap Just (io $ newTVarIO Map.empty)
 
 type LexPads = [LexPad]