Implement printing string literals and calls (js)

Author: raquelxmoss

src/JavaScriptSyntax.hs

@@ -32,6 +32,9 @@ printExpression expression =
       intercalate
         " "
         [printExpression a, printOperator operator, printExpression b]
+    String' string -> show string
+    Call name args ->
+      s name ++ "(" ++ intercalate ", " (map printExpression args) ++ ")"
     _ -> error $ "not implemented " ++ show expression
 
 printOperator :: OperatorExpr -> String

test/JavaScriptSyntaxSpec.hs

@@ -52,6 +52,26 @@ javaScriptSyntaxSpecs =
               ]
           expected = "function test(a, b) { return a + b }"
        in printModule code `shouldBe` expected
+    it "prints a function that returns a string" $ do
+      let code =
+            Module
+              [Function $ Declaration Nothing (ne "test") [] (String' "hey")]
+          expected = "function test() { return \"hey\" }"
+       in printModule code `shouldBe` expected
+    it "prints a function call with arguments" $ do
+      let code =
+            Module
+              [ Function $
+                Declaration
+                  Nothing
+                  (ne "test")
+                  [ne "a", ne "b"]
+                  (Call
+                     (ne "func")
+                     [(Identifier (ne "a")), (Identifier (ne "b"))])
+              ]
+          expected = "function test(a, b) { return func(a, b) }"
+       in printModule code `shouldBe` expected
 
 ne :: String -> Ident
 ne = Ident . NonEmptyString . NE.fromList