Remove redundant variable

wasp-lang · Oct 7, 2024 · d0ba9e5 · d0ba9e5
1 parent 8c8cb4f
commit d0ba9e5
Showing 1 changed file with 2 additions and 3 deletions.
diff --git a/waspc/src/Wasp/Analyzer.hs b/waspc/src/Wasp/Analyzer.hs
@@ -166,11 +166,10 @@ analyze prismaSchemaAst =
 
 getEntityDecls :: Psl.Schema.Schema -> Either [AnalyzeError] [Decl]
 getEntityDecls schema =
-  wrapAnalyzerError TypeError (typeCheck stdTypes ast)
+  wrapAnalyzerError TypeError (typeCheck stdTypes astWithEntitiesOnly)
     >>= (wrapAnalyzerError EvaluationError . evaluate stdTypes)
   where
-    entityStatements = parseEntityStatements schema
-    ast = Parser.AST entityStatements
+    astWithEntitiesOnly = Parser.AST $ parseEntityStatements schema
 
 wrapAnalyzerError :: (e -> AnalyzeError) -> Either e a -> Either [AnalyzeError] a
 wrapAnalyzerError makeError = left ((: []) . makeError)