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
|
||||
line <- readLine "user> "
|
||||
case line of
|
||||
"" -> loop
|
||||
":q" -> pure unit
|
||||
":Q" -> pure unit
|
||||
_ -> do
|
||||
log line
|
||||
loop
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
||||
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
@ -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
|
||||
|
Loading…
Reference in New Issue
Block a user