PureScript: fix repl newline

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

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

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
 
 

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

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

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

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

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

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

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

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