github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-12-22 22:31:36 +03:00
Code Issues Projects Releases Wiki Activity

Some tracing

Browse Source
This commit is contained in:
Timothy Clem 2018-02-16 17:01:12 -08:00
parent 6cf86ee668
commit 6108396f86
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/Data/Abstract/Environment.hs
View File

@ -22,7 +22,7 @@ envLookup k = Map.lookup k . unEnvironment
-- | Insert a 'Name' in the environment.
envInsert :: Name -> Address l a -> Environment l a -> Environment l a
envInsert name value (Environment m) = Environment (Map.insert name value m)
envInsert name value (Environment m) = trace ("envInsert: " <> show name) $ Environment (Map.insert name value m)
envUnion :: Environment l a -> Environment l a -> Environment l a
envUnion (Environment e1) (Environment e2) = Environment $ Map.union e1 e2