Useful but limited polymorphism

src/Module/Resolver.hs

@@ -28,6 +28,7 @@ data ResolvedExport = ResolvedExport
   , resolvedExportObject     :: ObjectRef
   , resolvedExportAbi        :: T.Text
   , resolvedExportView       :: Maybe ObjectRef
+  , resolvedExportProvenance :: Maybe ViewProvenance
   , resolvedExportTerm       :: T
   } deriving (Show, Eq)
 
@@ -86,6 +87,7 @@ resolveModuleExport resolver namespace ex = do
         , resolvedExportObject = ref
         , resolvedExportAbi = moduleExportAbi ex
         , resolvedExportView = moduleExportView ex
+        , resolvedExportProvenance = moduleExportViewProvenance ex
         , resolvedExportTerm = term
         }