mirror of
https://github.com/kanaka/mal.git
synced 2024-08-17 01:30:26 +03:00
PureScript: fix repl newline
This commit is contained in:
parent
cb9e238c1e
commit
55a032b4c9
@ -29,8 +29,8 @@ loop :: Effect Unit
|
|||||||
loop = do
|
loop = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
":Q" -> pure unit
|
|
||||||
_ -> do
|
_ -> do
|
||||||
log line
|
log line
|
||||||
loop
|
loop
|
||||||
|
@ -40,8 +40,8 @@ loop :: Effect Unit
|
|||||||
loop = do
|
loop = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
":Q" -> pure unit
|
|
||||||
_ -> do
|
_ -> do
|
||||||
rep line
|
rep line
|
||||||
loop
|
loop
|
||||||
|
@ -91,8 +91,8 @@ loop :: Effect Unit
|
|||||||
loop = do
|
loop = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
":Q" -> pure unit
|
|
||||||
_ -> rep line *> loop
|
_ -> rep line *> loop
|
||||||
|
|
||||||
|
|
||||||
|
@ -93,6 +93,7 @@ loop :: RefEnv -> Effect Unit
|
|||||||
loop env = do
|
loop env = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop env
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
_ -> do
|
_ -> do
|
||||||
result <- try $ rep env line
|
result <- try $ rep env line
|
||||||
|
@ -152,6 +152,7 @@ loop :: RefEnv -> Effect Unit
|
|||||||
loop env = do
|
loop env = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop env
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
_ -> do
|
_ -> do
|
||||||
result <- try $ rep env line
|
result <- try $ rep env line
|
||||||
|
@ -165,6 +165,7 @@ loop :: RefEnv -> Effect Unit
|
|||||||
loop env = do
|
loop env = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop env
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
_ -> do
|
_ -> do
|
||||||
result <- try $ rep env line
|
result <- try $ rep env line
|
||||||
|
@ -65,6 +65,7 @@ loop :: RefEnv -> Effect Unit
|
|||||||
loop env = do
|
loop env = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop env
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
_ -> do
|
_ -> do
|
||||||
result <- try $ rep env line
|
result <- try $ rep env line
|
||||||
|
@ -64,6 +64,7 @@ loop :: RefEnv -> Effect Unit
|
|||||||
loop env = do
|
loop env = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop env
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
_ -> do
|
_ -> do
|
||||||
result <- try $ rep env line
|
result <- try $ rep env line
|
||||||
|
@ -65,6 +65,7 @@ loop :: RefEnv -> Effect Unit
|
|||||||
loop env = do
|
loop env = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop env
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
_ -> do
|
_ -> do
|
||||||
result <- try $ rep env line
|
result <- try $ rep env line
|
||||||
|
@ -67,6 +67,7 @@ loop :: RefEnv -> Effect Unit
|
|||||||
loop env = do
|
loop env = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop env
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
_ -> do
|
_ -> do
|
||||||
result <- try $ rep env line
|
result <- try $ rep env line
|
||||||
|
@ -70,6 +70,7 @@ loop :: RefEnv -> Effect Unit
|
|||||||
loop env = do
|
loop env = do
|
||||||
line <- readLine "user> "
|
line <- readLine "user> "
|
||||||
case line of
|
case line of
|
||||||
|
"" -> loop env
|
||||||
":q" -> pure unit
|
":q" -> pure unit
|
||||||
_ -> do
|
_ -> do
|
||||||
result <- try $ rep env line
|
result <- try $ rep env line
|
||||||
|
Loading…
Reference in New Issue
Block a user