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

Placate hlint.

Browse Source
This commit is contained in:
Rob Rix 2018-05-24 12:22:55 -04:00
parent 3a5d1de162
commit d819051bf4
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/Exports.hs
View File

@ -23,7 +23,7 @@ null :: Exports location -> Bool
null = Map.null . unExports null = Map.null . unExports
toEnvironment :: Exports location -> Environment location toEnvironment :: Exports location -> Environment location
toEnvironment exports = unpairs (mapMaybe sequenceA (map (second (fmap Address)) (toList (unExports exports)))) toEnvironment exports = unpairs (mapMaybe (sequenceA . second (fmap Address)) (toList (unExports exports)))
insert :: Name -> Name -> Maybe (Address location value) -> Exports location -> Exports location insert :: Name -> Name -> Maybe (Address location value) -> Exports location -> Exports location
insert name alias address = Exports . Map.insert name (alias, unAddress <$> address) . unExports insert name alias address = Exports . Map.insert name (alias, unAddress <$> address) . unExports