From 03c69cc2f94ddf383610c6662ca7d6771e2b108a Mon Sep 17 00:00:00 2001
From: joshvera <josh@joshvera.com>
Date: Fri, 6 Apr 2018 12:37:09 -0400
Subject: [PATCH] Fix runEvaluatingWithPrelude

---
 src/Semantic/Util.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Semantic/Util.hs b/src/Semantic/Util.hs
index f1d94c0b6..c371cd7ab 100644
--- a/src/Semantic/Util.hs
+++ b/src/Semantic/Util.hs
@@ -81,7 +81,7 @@ evalTypeScriptProject path = runEvaluating . evaluatePackageBody <$> parseProjec
 evalTypeScriptFile path = runEvaluating . evaluateModule <$> parseFile typescriptParser Nothing path
 typecheckTypeScriptFile path = runAnalysis @(Caching (Evaluating Monovariant TypeScript.Term Type)) . evaluateModule <$> parseFile typescriptParser Nothing path
 
-runEvaluatingWithPrelude parser exts path = fmap runEvaluating . (withPrelude <$> parsePrelude parser <*> evaluatePackageBody <$> parseProject parser exts path)
+runEvaluatingWithPrelude parser exts path = runEvaluating <$> (withPrelude <$> parsePrelude parser <*> (evaluatePackageBody <$> parseProject parser exts path))
 
 -- TODO: Remove this by exporting EvaluatingEffects
 runEvaluating :: forall term effects a.