use triple-quoted strings to avoid backslashes

davidchambers · davidchambers · commit f37dcd8d3608 · 2015-01-12T16:48:25.000+13:00
diff --git a/examples/passing/BindersInFunctions.purs b/examples/passing/BindersInFunctions.purs
@@ -5,9 +5,11 @@ import Prelude
 tail = \(_:xs) -> xs
 
 foreign import error
-  "function error(msg) {\
-  \  throw msg;\
-  \}" :: forall a. String -> a
+  """
+  function error(msg) {
+    throw msg;
+  }
+  """ :: forall a. String -> a
 
 main = 
   let ts = tail [1, 2, 3] in
diff --git a/examples/passing/CheckSynonymBug.purs b/examples/passing/CheckSynonymBug.purs
@@ -5,9 +5,11 @@ module Main where
   type Foo a = [a]  
 
   foreign import length
-    "function length(a) {\
-    \  return a.length;\
-    \}" :: forall a. [a] -> Number
+    """
+    function length(a) {
+      return a.length;
+    }
+    """ :: forall a. [a] -> Number
 
   foo _ = length ([] :: Foo Number)
 
diff --git a/examples/passing/Comparisons.purs b/examples/passing/Comparisons.purs
@@ -6,12 +6,14 @@ import Debug.Trace
 foreign import data Assert :: !
 
 foreign import assert
-  "function assert(x) {\
-  \  return function () {\
-  \    if (!x) throw new Error('assertion failed');\
-  \    return {};\
-  \  };\
-  \};" :: forall e. Boolean -> Eff (assert :: Assert | e) Unit
+  """
+  function assert(x) {
+    return function() {
+      if (!x) throw new Error('assertion failed');
+      return {};
+    };
+  }
+  """ :: forall e. Boolean -> Eff (assert :: Assert | e) Unit
 
 main = do
   assert (1 < 2)
diff --git a/examples/passing/DeepArrayBinder.purs b/examples/passing/DeepArrayBinder.purs
@@ -7,9 +7,11 @@ match2 (x : y : xs) = x * y + match2 xs
 match2 _ = 0
 
 foreign import explode 
-  "function explode() {\
-  \  throw new Error('Incorrect result');\
-  \}" :: forall eff a. Eff eff a
+  """
+  function explode() {
+    throw new Error('Incorrect result');
+  }
+  """ :: forall eff a. Eff eff a
 
 main = case match2 [1, 2, 3, 4, 5, 6, 7, 8, 9] of
   100 -> Debug.Trace.trace "Done"
diff --git a/examples/passing/EmptyDataDecls.purs b/examples/passing/EmptyDataDecls.purs
@@ -11,19 +11,23 @@ nil :: forall a. ArrayBox Z a
 nil = ArrayBox []
 
 foreign import concat
-  "function concat(l1) {\
-  \  return function (l2) {\
-  \    return l1.concat(l2);\
-  \  };\
-  \}" :: forall a. [a] -> [a] -> [a]
+  """
+  function concat(l1) {
+    return function(l2) {
+      return l1.concat(l2);
+    };
+  }
+  """ :: forall a. [a] -> [a] -> [a]
 
 cons' :: forall a n. a -> ArrayBox n a -> ArrayBox (S n) a
 cons' x (ArrayBox xs) = ArrayBox $ concat [x] xs
 
 foreign import error
-    "function error(msg) {\
-    \  throw msg;\
-    \}" :: forall a. String -> a
+  """
+  function error(msg) {
+    throw msg;
+  }
+  """ :: forall a. String -> a
 
 main = case cons' 1 $ cons' 2 $ cons' 3 nil of
          ArrayBox [1, 2, 3] -> Debug.Trace.trace "Done"
diff --git a/examples/passing/ExternRaw.purs b/examples/passing/ExternRaw.purs
@@ -1,13 +1,26 @@
 module Main where
 
-foreign import first "function first(xs) { return xs[0]; }" :: forall a. [a] -> a
+foreign import first
+  """
+  function first(xs) {
+    return xs[0];
+  }
+  """ :: forall a. [a] -> a
 
-foreign import loop "function loop() { while (true) {} }" :: forall a. a
+foreign import loop
+  """
+  function loop() {
+    while (true) {}
+  }
+  """ :: forall a. a
 
-foreign import concat "function concat(xs) { \
-                      \  return function(ys) { \
-                      \    return xs.concat(ys); \
-                      \  };\
-                      \}" :: forall a. [a] -> [a] -> [a]
+foreign import concat
+  """
+  function concat(xs) {
+    return function(ys) {
+      return xs.concat(ys);
+    };
+  }
+  """ :: forall a. [a] -> [a] -> [a]
 
 main = Debug.Trace.trace "Done"
diff --git a/examples/passing/FFI.purs b/examples/passing/FFI.purs
@@ -1,9 +1,11 @@
 module Main where
 
 foreign import foo 
-  "function foo(s) {\
-  \  return s;\
-  \}" :: String -> String
+  """
+  function foo(s) {
+    return s;
+  }
+  """ :: String -> String
 
 bar :: String -> String
 bar _ = foo "test"
diff --git a/examples/passing/FunctionScope.purs b/examples/passing/FunctionScope.purs
@@ -6,9 +6,11 @@ module Main where
   mkValue id = id
 
   foreign import error 
-    "function error(msg) {\
-    \  throw msg;\
-    \}" :: forall a. String -> a
+    """
+    function error(msg) {
+      throw msg;
+    }
+    """ :: forall a. String -> a
 
   main = do
     let value = mkValue 1
diff --git a/examples/passing/Functions2.purs b/examples/passing/Functions2.purs
@@ -6,9 +6,11 @@ module Main where
   test = \const _ -> const
 
   foreign import error
-    "function error(msg) {\
-    \  throw msg;\
-    \}" :: forall a. String -> a
+    """
+    function error(msg) {
+      throw msg;
+    }
+    """ :: forall a. String -> a
 
   main = do
     let value = test "Done" {}
diff --git a/examples/passing/HoistError.purs b/examples/passing/HoistError.purs
@@ -4,11 +4,13 @@ import Control.Monad.Eff
 import Debug.Trace
 
 foreign import f
-  "function f(x) {\
-  \  return function () {\
-  \    if (x !== 0) throw new Error('x is not 0');\
-  \  }\
-  \}" :: forall e. Number -> Eff e Number
+  """
+  function f(x) {
+    return function() {
+      if (x !== 0) throw new Error('x is not 0');
+    };
+  }
+  """ :: forall e. Number -> Eff e Number
 
 main = do
   let x = 0
diff --git a/examples/passing/OperatorAssociativity.purs b/examples/passing/OperatorAssociativity.purs
@@ -6,20 +6,26 @@ import Debug.Trace
 foreign import data Assert :: !
 
 foreign import assert
-  "function assert(x) { return function (desc) {\
-  \  return function () {\
-  \    if (!x) throw new Error('assertion (' + desc + ') failed');\
-  \    return {};\
-  \  };\
-  \};};" :: forall e. Boolean -> String -> Eff (assert :: Assert | e) Unit
+  """
+  function assert(x) {
+    return function(desc) {
+      return function() {
+        if (!x) throw new Error('assertion (' + desc + ') failed');
+        return {};
+      };
+    };
+  }
+  """ :: forall e. Boolean -> String -> Eff (assert :: Assert | e) Unit
 
 bug :: Number -> Number -> Number
 bug a b = 0 - (a - b)
 
 foreign import explode
-  "function explode() {\
-  \  throw new Error('Assertion failed!');\
-  \}":: forall eff a. Eff eff a
+  """
+  function explode() {
+    throw new Error('Assertion failed!');
+  }
+  """ :: forall eff a. Eff eff a
 
 main = do
     assert (bug 0 2 == 2)       "bug 0 2 == 2"
diff --git a/examples/passing/PartialFunction.purs b/examples/passing/PartialFunction.purs
@@ -1,14 +1,16 @@
 module Main where
 
 foreign import testError
-  "function testError(f) {\
-  \  try {\
-  \    return f();\
-  \  } catch (e) {\
-  \    if (e instanceof Error) return 'success';\
-  \    throw new Error('Pattern match failure is not Error');\
-  \  }\
-  \}" :: (Unit -> Number) -> String
+  """
+  function testError(f) {
+    try {
+      return f();
+    } catch (e) {
+      if (e instanceof Error) return 'success';
+      throw new Error('Pattern match failure is not Error');
+    }
+  }
+  """ :: (Unit -> Number) -> String
 
 fn :: Number -> Number
 fn 0 = 0
diff --git a/examples/passing/Person.purs b/examples/passing/Person.purs
@@ -5,9 +5,11 @@ module Main where
   data Person = Person { name :: String, age :: Number }
 
   foreign import itoa 
-    "function itoa(n) {\
-    \  return n.toString();\
-    \}" :: Number -> String
+    """
+    function itoa(n) {
+      return n.toString();
+    }
+    """ :: Number -> String
 	  
   showPerson :: Person -> String
   showPerson = \p -> case p of
diff --git a/examples/passing/ShadowedRename.purs b/examples/passing/ShadowedRename.purs
@@ -4,11 +4,13 @@ import Control.Monad.Eff
 import Debug.Trace
 
 foreign import f
-  "function f(x) {\
-  \  return function () {\
-  \    if (x !== 2) throw new Error('x is not 2');\
-  \  }\
-  \}" :: forall e. Number -> Eff e Number
+  """
+  function f(x) {
+    return function() {
+      if (x !== 2) throw new Error('x is not 2');
+    };
+  }
+  """ :: forall e. Number -> Eff e Number
 
 foo foo = let foo_1 = \_ -> foo
               foo_2 = foo_1 unit + 1
