From d819051bf49535557437c851ce8681a793d6ad3c Mon Sep 17 00:00:00 2001 From: Rob Rix Date: Thu, 24 May 2018 12:22:55 -0400 Subject: [PATCH] Placate hlint. --- src/Data/Abstract/Exports.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/Data/Abstract/Exports.hs b/src/Data/Abstract/Exports.hs index 12cea0c74..f3c027d87 100644 --- a/src/Data/Abstract/Exports.hs +++ b/src/Data/Abstract/Exports.hs @@ -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