diff --git a/src/Data/Abstract/Exports.hs b/src/Data/Abstract/Exports.hs
index 38034fdc5..e63723246 100644
--- a/src/Data/Abstract/Exports.hs
+++ b/src/Data/Abstract/Exports.hs
@@ -16,9 +16,12 @@ import qualified Data.Map as Map
 import Data.Semilattice.Lower
 
 -- | A map of export names to an alias & address tuple.
-newtype Exports location value = Exports { unExports :: Map.Map Name (Name, Maybe (Address location value)) }
+newtype Exports location value = Exports (Map.Map Name (Name, Maybe (Address location value)))
   deriving (Eq, Lower, Monoid, Ord, Semigroup, Show)
 
+unExports :: Exports location value -> Map.Map Name (Name, Maybe (Address location value))
+unExports (Exports exports) = exports
+
 null :: Exports location value -> Bool
 null = Map.null . unExports