github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2024-11-28 10:15:55 +03:00
Code Issues Projects Releases Wiki Activity

Fix a doctest.

Browse Source
This commit is contained in:
Rob Rix 2018-05-16 17:32:56 -04:00
parent 7da00b8746
commit 5d71628e0b
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

@ -85,7 +85,7 @@ mergeNewer (Environment a) (Environment b) =
-- | Extract an association list of bindings from an 'Environment'.
--
-- >>> pairs shadowed
-- [(Name {unName = "foo"},Precise 1)]
-- [("foo",Precise 1)]
pairs :: Environment location value -> [(Name, Address location value)]
pairs = map (second Address) . Map.toList . fold . unEnvironment