aboutsummaryrefslogtreecommitdiff
path: root/src/Chelleport/OCR.hs
diff options
context:
space:
mode:
authorAkshay Nair <phenax5@gmail.com>2024-12-28 20:27:04 +0530
committerAkshay Nair <phenax5@gmail.com>2024-12-28 20:27:04 +0530
commitb305546950a6742f25023e2ffece423905e1bda8 (patch)
tree279f16bc685d4d3ac90b947dbaa1bfd8ef17265f /src/Chelleport/OCR.hs
parent568923344f0941b2771459dd8dbe935ac971a968 (diff)
downloadchelleport-b305546950a6742f25023e2ffece423905e1bda8.tar.gz
chelleport-b305546950a6742f25023e2ffece423905e1bda8.zip
Refactor mode data type
Diffstat (limited to '')
-rw-r--r--src/Chelleport/OCR.hs1
1 files changed, 1 insertions, 0 deletions
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]