fix: remove extra quotes around json imports

madlib-lang · May 5, 2024 · d0d7775 · d0d7775
1 parent ac83e20
commit d0d7775
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/compiler/main/Parse/Madlib/AST.hs b/compiler/main/Parse/Madlib/AST.hs
@@ -63,7 +63,7 @@ generateJsonAssignments _ [] = return []
 generateJsonAssignments pathUtils ((Source area sourceTarget (DefaultImport (Source _ _ name) _ absPath)):imps) = do
   next <- generateJsonAssignments pathUtils imps
   jsonContent <- readFile pathUtils absPath
-  let var = Source area sourceTarget (LStr $ "\"" <> escapeJSONString jsonContent <> "\"")
+  let var = Source area sourceTarget (LStr $ escapeJSONString jsonContent)
   let assignment = Source area sourceTarget (Assignment name var)
 
   return $ assignment : next