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

fix redundant constraint

Browse Source
This commit is contained in:
Patrick Thomson 2018-03-19 15:51:14 -04:00
parent dd1e1c555d
commit 62ee3a149e
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

@ -102,7 +102,7 @@ trim :: Environment l a -> Environment l a
trim (Environment (a :| as)) = Environment (a :| filtered)
where filtered = filter (not . Map.null) as
bind :: (Ord l, Foldable t) => t Name -> Environment l a -> Environment l a
bind :: Foldable t => t Name -> Environment l a -> Environment l a
bind names env = foldMap envForName names
where envForName name = maybe mempty (curry unit name) (lookup name env)