From 55a032b4c90f0f38da79c5a218c6cdc9f8fbc10b Mon Sep 17 00:00:00 2001
From: mrsekut <k.cloudspider@gmail.com>
Date: Wed, 15 Dec 2021 01:15:34 +0900
Subject: [PATCH] PureScript: fix repl newline

---
 impls/purs/src/step0_repl.purs       | 2 +-
 impls/purs/src/step1_read_print.purs | 2 +-
 impls/purs/src/step2_eval.purs       | 2 +-
 impls/purs/src/step3_env.purs        | 1 +
 impls/purs/src/step4_if_fn_do.purs   | 1 +
 impls/purs/src/step5_tco.purs        | 1 +
 impls/purs/src/step6_file.purs       | 1 +
 impls/purs/src/step7_quote.purs      | 1 +
 impls/purs/src/step8_macros.purs     | 1 +
 impls/purs/src/step9_try.purs        | 1 +
 impls/purs/src/stepA_mal.purs        | 1 +
 11 files changed, 11 insertions(+), 3 deletions(-)

diff --git a/impls/purs/src/step0_repl.purs b/impls/purs/src/step0_repl.purs
index b88d5407..f9cc6be1 100644
--- a/impls/purs/src/step0_repl.purs
+++ b/impls/purs/src/step0_repl.purs
@@ -29,8 +29,8 @@ loop :: Effect Unit
 loop = do
   line <- readLine "user> "
   case line of
+    ""   -> loop
     ":q" -> pure unit
-    ":Q" -> pure unit
     _ -> do
       log line
       loop
diff --git a/impls/purs/src/step1_read_print.purs b/impls/purs/src/step1_read_print.purs
index ce900c4b..13c104e8 100644
--- a/impls/purs/src/step1_read_print.purs
+++ b/impls/purs/src/step1_read_print.purs
@@ -40,8 +40,8 @@ loop :: Effect Unit
 loop = do
   line <- readLine "user> "
   case line of
+    ""   -> loop
     ":q" -> pure unit
-    ":Q" -> pure unit
     _    -> do
       rep line
       loop
diff --git a/impls/purs/src/step2_eval.purs b/impls/purs/src/step2_eval.purs
index b1814e32..3eb2ad1a 100644
--- a/impls/purs/src/step2_eval.purs
+++ b/impls/purs/src/step2_eval.purs
@@ -91,8 +91,8 @@ loop :: Effect Unit
 loop = do
   line <- readLine "user> "
   case line of
+    ""   -> loop
     ":q" -> pure unit
-    ":Q" -> pure unit
     _    -> rep line *> loop
 
 
diff --git a/impls/purs/src/step3_env.purs b/impls/purs/src/step3_env.purs
index 7f4202e3..12851a5d 100644
--- a/impls/purs/src/step3_env.purs
+++ b/impls/purs/src/step3_env.purs
@@ -93,6 +93,7 @@ loop :: RefEnv -> Effect Unit
 loop env = do
   line <- readLine "user> "
   case line of
+    ""   -> loop env
     ":q" -> pure unit
     _    -> do
       result <- try $ rep env line
diff --git a/impls/purs/src/step4_if_fn_do.purs b/impls/purs/src/step4_if_fn_do.purs
index b0e0d270..f0488818 100644
--- a/impls/purs/src/step4_if_fn_do.purs
+++ b/impls/purs/src/step4_if_fn_do.purs
@@ -152,6 +152,7 @@ loop :: RefEnv -> Effect Unit
 loop env = do
   line <- readLine "user> "
   case line of
+    ""   -> loop env
     ":q" -> pure unit
     _    -> do
       result <- try $ rep env line
diff --git a/impls/purs/src/step5_tco.purs b/impls/purs/src/step5_tco.purs
index c5d46593..dcf3880d 100644
--- a/impls/purs/src/step5_tco.purs
+++ b/impls/purs/src/step5_tco.purs
@@ -165,6 +165,7 @@ loop :: RefEnv -> Effect Unit
 loop env = do
   line <- readLine "user> "
   case line of
+    ""   -> loop env
     ":q" -> pure unit
     _    -> do
       result <- try $ rep env line
diff --git a/impls/purs/src/step6_file.purs b/impls/purs/src/step6_file.purs
index 13b9ae06..09978fff 100644
--- a/impls/purs/src/step6_file.purs
+++ b/impls/purs/src/step6_file.purs
@@ -65,6 +65,7 @@ loop :: RefEnv -> Effect Unit
 loop env = do
   line <- readLine "user> "
   case line of
+    ""   -> loop env
     ":q" -> pure unit
     _    -> do
       result <- try $ rep env line
diff --git a/impls/purs/src/step7_quote.purs b/impls/purs/src/step7_quote.purs
index 75e7ad1f..8b4d90e1 100644
--- a/impls/purs/src/step7_quote.purs
+++ b/impls/purs/src/step7_quote.purs
@@ -64,6 +64,7 @@ loop :: RefEnv -> Effect Unit
 loop env = do
   line <- readLine "user> "
   case line of
+    ""   -> loop env
     ":q" -> pure unit
     _    -> do
       result <- try $ rep env line
diff --git a/impls/purs/src/step8_macros.purs b/impls/purs/src/step8_macros.purs
index d5ace2ce..3ffd77e3 100644
--- a/impls/purs/src/step8_macros.purs
+++ b/impls/purs/src/step8_macros.purs
@@ -65,6 +65,7 @@ loop :: RefEnv -> Effect Unit
 loop env = do
   line <- readLine "user> "
   case line of
+    ""   -> loop env
     ":q" -> pure unit
     _    -> do
       result <- try $ rep env line
diff --git a/impls/purs/src/step9_try.purs b/impls/purs/src/step9_try.purs
index ec595fa6..2d34bd99 100644
--- a/impls/purs/src/step9_try.purs
+++ b/impls/purs/src/step9_try.purs
@@ -67,6 +67,7 @@ loop :: RefEnv -> Effect Unit
 loop env = do
   line <- readLine "user> "
   case line of
+    ""   -> loop env
     ":q" -> pure unit
     _    -> do
       result <- try $ rep env line
diff --git a/impls/purs/src/stepA_mal.purs b/impls/purs/src/stepA_mal.purs
index 35a44417..e5fbbce0 100644
--- a/impls/purs/src/stepA_mal.purs
+++ b/impls/purs/src/stepA_mal.purs
@@ -70,6 +70,7 @@ loop :: RefEnv -> Effect Unit
 loop env = do
   line <- readLine "user> "
   case line of
+    ""   -> loop env
     ":q" -> pure unit
     _    -> do
       result <- try $ rep env line