edwinb/Idris2-boot
1
1
Fork 0
mirror of https://github.com/edwinb/Idris2-boot.git synced 2024-12-18 18:31:43 +03:00
Code Issues Projects Releases Wiki Activity

fix compilation error and stupid fallthough case

Browse Source
This commit is contained in:
Arnaud Bailly 2020-02-29 15:45:10 +01:00
parent 75b04d867b
commit 2ede4d2d01
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/Idris/REPLCommon.idr
View File

@ -20,7 +20,7 @@ iputStrLn msg
= do opts <- get ROpts = do opts <- get ROpts
case idemode opts of case idemode opts of
REPL False => coreLift $ putStrLn msg REPL False => coreLift $ putStrLn msg
_ => pure () REPL _ => pure ()
IDEMode i _ f => IDEMode i _ f =>
send f (SExpList [SymbolAtom "write-string", send f (SExpList [SymbolAtom "write-string",
toSExp msg, toSExp i]) toSExp msg, toSExp i])
@ -32,7 +32,7 @@ printWithStatus status msg
= do opts <- get ROpts = do opts <- get ROpts
case idemode opts of case idemode opts of
REPL _ => coreLift $ putStrLn msg REPL _ => coreLift $ putStrLn msg
_ => core () _ => pure ()
export export
printResult : {auto o : Ref ROpts REPLOpts} -> printResult : {auto o : Ref ROpts REPLOpts} ->