remove node dependencies from Prelude.newt

aoc2023/Day1.newt

@@ -1,6 +1,7 @@
 module Day1
 
 import Prelude
+import Node
 
 digits1 : List Char -> List Int
 digits1 Nil = Nil

aoc2023/Day2.newt

@@ -1,6 +1,7 @@
 module Day2
 
 import Prelude
+import Node
 
 Draw : U
 Draw = Int × Int × Int
@@ -84,6 +85,7 @@ part2 (MkGame n parts :: rest) =
 
 run : String -> IO Unit
 run fn = do
+  putStrLn fn
   text <- readFile fn
   case mapM parseGame (split (trim text) "\n") of
     Left err => putStrLn $ "fail " ++ err

aoc2023/Node.newt

@@ -0,0 +1,7 @@
+module Node
+
+import Prelude
+
+pfunc fs : JSObject := "require('fs')"
+pfunc getArgs : List String := "arrayToList(String, process.argv)"
+pfunc readFile : (fn : String) -> IO String := "(fn) => (w) => MkIORes(Unit, fs.readFileSync(fn, 'utf8'), w)"

newt-vscode/syntaxes/newt.tmLanguage.json

@@ -16,7 +16,7 @@
     },
     {
       "name": "keyword.newt",
-      "match": "\\b(data|where|class|instance|case|of|let|if|then|else|forall|∀|in|U|module|import|ptype|pfunc|infix|infixl|infixr)\\b"
+      "match": "\\b(data|where|do|class|instance|case|of|let|if|then|else|forall|∀|in|U|module|import|ptype|pfunc|infix|infixl|infixr)\\b"
     },
     {
       "name": "string.js",

playground/samples/Prelude.newt

@@ -220,7 +220,6 @@ pfunc arrayToList : {a} → Array a → List a := "(a,arr) => {
 }"
 
 
-pfunc getArgs : List String := "arrayToList(String, process.argv)"
 
 -- for now I'll run this in JS
 pfunc lines : String → List String := "(s) => arrayToList(s.split('\\n'))"
@@ -297,9 +296,6 @@ pfunc unpack : String -> List Char
 }"
 
 
-ptype Dummy
-pfunc fs : Dummy := "require('fs')"
-pfunc readFile : (fn : String) -> IO String := "(fn) => (w) => MkIORes(Unit, fs.readFileSync(fn, 'utf8'), w)"
 
 foldl : {A B : U} -> (B -> A -> B) -> B -> List A -> B
 foldl f acc Nil = acc
@@ -329,3 +325,7 @@ instance Ord Int where
 
 printLn : {a} {{Show a}} → a → IO Unit
 printLn a = putStrLn $ show a
+
+-- opaque JSObject
+ptype JSObject
+

playground/src/main.ts

@@ -192,7 +192,7 @@ const SAMPLES = [
   "Lists.newt",
   "Day1.newt",
   "Day2.newt",
-  "Lib.newt",
+  "Prelude.newt",
   "TypeClass.newt",
   "Combinatory.newt",
 ];

port/Prelude.newt

@@ -220,7 +220,6 @@ pfunc arrayToList : {a} → Array a → List a := "(a,arr) => {
 }"
 
 
-pfunc getArgs : List String := "arrayToList(String, process.argv)"
 
 -- for now I'll run this in JS
 pfunc lines : String → List String := "(s) => arrayToList(s.split('\\n'))"
@@ -297,9 +296,6 @@ pfunc unpack : String -> List Char
 }"
 
 
-ptype Dummy
-pfunc fs : Dummy := "require('fs')"
-pfunc readFile : (fn : String) -> IO String := "(fn) => (w) => MkIORes(Unit, fs.readFileSync(fn, 'utf8'), w)"
 
 foldl : {A B : U} -> (B -> A -> B) -> B -> List A -> B
 foldl f acc Nil = acc
@@ -329,3 +325,7 @@ instance Ord Int where
 
 printLn : {a} {{Show a}} → a → IO Unit
 printLn a = putStrLn $ show a
+
+-- opaque JSObject
+ptype JSObject
+