From 28452e9181af8e7450778fa23d9c2f274f1babbd Mon Sep 17 00:00:00 2001
From: Chris Done <git@chrisdone.com>
Date: Mon, 20 Jan 2025 15:11:46 +0000
Subject: [PATCH] Force evaluation in check case

---
 src/Hell.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/Hell.hs b/src/Hell.hs
index 22092b2..4091f91 100644
--- 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