From b305546950a6742f25023e2ffece423905e1bda8 Mon Sep 17 00:00:00 2001
From: Akshay Nair <phenax5@gmail.com>
Date: Sat, 28 Dec 2024 20:27:04 +0530
Subject: Refactor mode data type

---
 src/Chelleport/OCR.hs | 1 +
 1 file changed, 1 insertion(+)

(limited to 'src/Chelleport/OCR.hs')

diff --git a/src/Chelleport/OCR.hs b/src/Chelleport/OCR.hs
index 3cd83ae..64c69e5 100644
--- a/src/Chelleport/OCR.hs
+++ b/src/Chelleport/OCR.hs
@@ -31,6 +31,7 @@ instance (MonadIO m) => MonadOCR (AppM m) where
       pure path
 
   getWordsInImage filePath = liftIO $ do
+    -- result `seq` pure result -- Strict eval
     findWordCoordinates filePath <* removeFile filePath
 
 findWordCoordinates :: String -> IO [OCRMatch]
-- 
cgit v1.3.1