[ fix ] Return CompilationFailed for green CI

idris-lang · Dec 19, 2024 · 55392d1 · 55392d1
1 parent 3f15823
commit 55392d1
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 0 deletions.
diff --git a/src/Idris/IDEMode/REPL.idr b/src/Idris/IDEMode/REPL.idr
@@ -351,6 +351,8 @@ displayIDEResult outf i  (REPL $ NoFileLoaded)
   = printIDEError outf i $ reflow "No file can be reloaded"
 displayIDEResult outf i  (REPL $ CurrentDirectory dir)
   = printIDEResult outf i $ AString $ "Current working directory is \"\{dir}\""
+displayIDEResult outf i  (REPL CompilationFailed)
+  = printIDEError outf i $ reflow "Compilation failed"
 displayIDEResult outf i  (REPL $ Compiled f)
   = printIDEResult outf i $ AString "File \{f} written"
 displayIDEResult outf i  (REPL $ ProofFound x)

diff --git a/src/Idris/REPL.idr b/src/Idris/REPL.idr
@@ -1260,6 +1260,7 @@ mutual
   displayResult NoFileLoaded = printResult (reflow "No file can be reloaded")
   displayResult (CurrentDirectory dir)
     = printResult (reflow "Current working directory is" <++> dquotes (pretty0 dir))
+  displayResult CompilationFailed = printResult (reflow "Compilation failed")
   displayResult (Compiled f) = printResult ("File" <++> pretty0 f <++> "written")
   displayResult (ProofFound x) = printResult (prettyBy Syntax x)
   displayResult (Missed cases) = printResult $ vsep (handleMissing <$> cases)

diff --git a/src/Idris/REPL/Common.idr b/src/Idris/REPL/Common.idr
@@ -227,6 +227,7 @@ data REPLResult : Type where
   ErrorsBuildingFile : String -> List Error -> REPLResult
   NoFileLoaded : REPLResult
   CurrentDirectory : String -> REPLResult
+  CompilationFailed: REPLResult
   Compiled : String -> REPLResult
   ProofFound : IPTerm -> REPLResult
   Missed : List MissedResult -> REPLResult