github/semantic
1
1
Fork 0
mirror of https://github.com/github/semantic.git synced 2025-01-08 00:16:53 +03:00
Code Issues Projects Releases Wiki Activity

delete mergeEnvs

Browse Source
This commit is contained in:
Charlie Somerville 2018-07-13 14:49:47 +10:00
parent 121f7cc25d
commit 060cb4097e
1 changed files with 0 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -11,7 +11,6 @@ module Data.Abstract.Environment
, intersect
, lookup
, lookupEnv'
, mergeEnvs
, mergeNewer
, names
, newEnv
@ -56,10 +55,6 @@ instance Lower (Bindings address) where
newtype Environment address = Environment { unEnvironment :: NonEmpty (Bindings address) }
deriving (Eq, Ord)
mergeEnvs :: Environment address -> Environment address -> Environment address
mergeEnvs (Environment (a :| as)) (Environment (b :| bs)) =
Environment ((<>) a b :| alignWith (mergeThese (<>)) as bs)
-- | Make and enter a new empty scope in the given environment.
push :: Environment address -> Environment address
push (Environment (a :| as)) = Environment (mempty :| a : as)