From 67833221c4b72788c8127ae07bfdde3f55d7974b Mon Sep 17 00:00:00 2001
From: Stephen Onnen <stephen.onnen@gmail.com>
Date: Tue, 30 Apr 2024 09:05:16 -0500
Subject: [PATCH] get prompt from array

---
 dist/main.js | 3 ++-
 src/Main.elm | 7 ++++++-
 2 files changed, 8 insertions(+), 2 deletions(-)

diff --git a/dist/main.js b/dist/main.js
index 40d4f98..38de73f 100644
--- a/dist/main.js
+++ b/dist/main.js
@@ -5246,11 +5246,12 @@ var $author$project$Main$Model = F4(
 	function (prompt, title_text, command, typing) {
 		return {command: command, prompt: prompt, title_text: title_text, typing: typing};
 	});
+var $author$project$Main$get_prompt = 'λ';
 var $elm$core$Platform$Cmd$batch = _Platform_batch;
 var $elm$core$Platform$Cmd$none = $elm$core$Platform$Cmd$batch(_List_Nil);
 var $author$project$Main$init = function (_v0) {
 	return _Utils_Tuple2(
-		A4($author$project$Main$Model, 'λ', '', './onn.sh', true),
+		A4($author$project$Main$Model, $author$project$Main$get_prompt, '', './onn.sh', true),
 		$elm$core$Platform$Cmd$none);
 };
 var $author$project$Main$TypeCommand = {$: 'TypeCommand'};
diff --git a/src/Main.elm b/src/Main.elm
index 083b5a4..6d3632a 100644
--- a/src/Main.elm
+++ b/src/Main.elm
@@ -28,7 +28,12 @@ type Msg
 
 init : () -> ( Model, Cmd Msg )
 init _ =
-    ( Model "λ" "" "./onn.sh" True, Cmd.none )
+    ( Model get_prompt "" "./onn.sh" True, Cmd.none )
+
+
+get_prompt : String
+get_prompt =
+    "λ"
 
 
 main : Program () Model Msg