mirror of
https://github.com/github/semantic.git
synced 2025-01-02 12:23:08 +03:00
Placate hlint.
This commit is contained in:
parent
3a5d1de162
commit
d819051bf4
@ -23,7 +23,7 @@ null :: Exports location -> Bool
|
||||
null = Map.null . unExports
|
||||
|
||||
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 alias address = Exports . Map.insert name (alias, unAddress <$> address) . unExports
|
||||
|
Loading…
Reference in New Issue
Block a user