WIP System.IO

guida-lang · Nov 23, 2024 · 272b0cd · 272b0cd
1 parent ebca0be
commit 272b0cd
Show file tree

Hide file tree

Showing 2 changed files with 40 additions and 0 deletions.
diff --git a/index.html b/index.html
@@ -0,0 +1,22 @@
+<html>
+
+<head>
+	<meta charset="UTF-8">
+	<title>Main</title>
+	<script src="index.js"></script>
+</head>
+
+<body>
+	<script>
+		const app = Elm.Main.init({});
+		app.ports.sendHPutStr.subscribe(function (args) {
+			console.log(args);
+			app.ports.recvHPutStr.send(null);
+		})
+		app.ports.sendGetLine.subscribe(function () {
+			app.ports.recvGetLine.send("some string...");
+		})
+	</script>
+</body>
+
+</html>
diff --git a/src/Main.elm b/src/Main.elm
@@ -0,0 +1,18 @@
+module Main exposing (main)
+
+import System.IO as IO exposing (IO)
+
+
+main : IO.Program
+main =
+    IO.run app
+
+
+app : IO ()
+app =
+    IO.pure 1
+        |> IO.fmap ((+) 2)
+        |> IO.fmap String.fromInt
+        |> IO.bind (IO.hPutStr IO.stdout)
+        |> IO.bind (\() -> IO.getLine)
+        |> IO.bind (\name -> IO.hPutStr IO.stdout ("Hello " ++ name))