Force evaluation in check case

chrisdone · Jan 20, 2025 · 28452e9 · 28452e9
1 parent 6dd4928
commit 28452e9
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/Hell.hs b/src/Hell.hs
@@ -47,6 +47,7 @@ module Main (main) where
 #if __GLASGOW_HASKELL__ >= 906
 import Control.Monad
 #endif
+import Control.Exception (evaluate)
 import qualified Control.Concurrent as Concurrent
 import Control.Monad.Reader
 import Control.Monad.State.Strict
@@ -153,7 +154,7 @@ dispatch (Run filePath) = do
   action <- compileFile filePath
   eval () action
 dispatch (Check filePath) = do
-  void $ compileFile filePath
+  compileFile filePath >>= void . evaluate
 
 --------------------------------------------------------------------------------
 -- Compiler