From ae7483291af6fff55f7b67358a5b9db93cc01edf Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Thu, 22 Mar 2018 13:03:59 -0400
Subject: [PATCH] Define evaluateFiles using evaluateModules.

---
 src/Semantic/Util.hs | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/src/Semantic/Util.hs b/src/Semantic/Util.hs
index 978676f0f..94f1b9883 100644
--- a/src/Semantic/Util.hs
+++ b/src/Semantic/Util.hs
@@ -81,9 +81,7 @@ evaluateFiles :: forall term effects
               => Parser term
               -> [FilePath]
               -> IO (Final effects Value)
-evaluateFiles parser paths = do
-  entry:xs <- parseFiles parser paths
-  pure . runAnalysis @(Evaluating term Value) . withModules xs $ evaluateModule entry
+evaluateFiles parser paths = runAnalysis @(Evaluating term Value) . evaluateModules <$> parseFiles parser paths
 
 
 -- Read and parse a file.