1
1
mirror of https://github.com/github/semantic.git synced 2025-01-02 12:23:08 +03:00

Placate hlint.

This commit is contained in:
Rob Rix 2018-05-24 12:22:55 -04:00
parent 3a5d1de162
commit d819051bf4

View File

@ -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