int add becomes +

src/Prelude.newt

@@ -259,9 +259,9 @@ infixr 7 _++_
 class Concat a where
   _++_ : a → a → a
 
-pfunc sconcat : String → String → String := `(x,y) => x + y`
+pfunc addString : String → String → String := `(x,y) => x + y`
 instance Concat String where
-  _++_ = sconcat
+  _++_ = addString
 
 
 pfunc jsEq uses (True False) : ∀ a. a → a → Bool := `(_, a, b) => a == b ? Prelude_True : Prelude_False`
@@ -872,14 +872,10 @@ instance ∀ a. {{Show a}} → Show (Maybe a) where
   show Nothing = "Nothing"
   show (Just a) = "Just {show a}"
 
-
--- TODO
-
 pfunc isPrefixOf uses (True False): String → String → Bool := `(pfx, s) => s.startsWith(pfx) ? Prelude_True : Prelude_False`
 pfunc isSuffixOf uses (True False): String → String → Bool := `(pfx, s) => s.endsWith(pfx) ? Prelude_True : Prelude_False`
 pfunc strIndex : String → Int → Char := `(s, ix) => s[ix]`
 
-
 instance ∀ a. {{Show a}} → Show (SnocList a) where
   show xs = show (xs <>> Nil)