From 368dc93e9196d19a29ec16f8304b0eb139d3bad3 Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Wed, 7 Mar 2018 10:03:59 -0500
Subject: [PATCH] Add an eval instance for QualifiedExport

---
 src/Data/Syntax/Declaration.hs | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/Data/Syntax/Declaration.hs b/src/Data/Syntax/Declaration.hs
index ea4e938a2..25b9ebb6a 100644
--- a/src/Data/Syntax/Declaration.hs
+++ b/src/Data/Syntax/Declaration.hs
@@ -240,6 +240,9 @@ instance Ord1 QualifiedExport where liftCompare = genericLiftCompare
 instance Show1 QualifiedExport where liftShowsPrec = genericLiftShowsPrec
 
 instance Evaluatable QualifiedExport where
+  eval (QualifiedExport from exportSymbols) = do
+      traverse_ addExport exportSymbols
+      unit
 
 -- | Import declarations (symbols are added directly to calling environment).
 --