diff options
Diffstat (limited to 'app/Main.hs')
| -rw-r--r-- | app/Main.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/app/Main.hs b/app/Main.hs index 8803f8b..05b066e 100644 --- a/app/Main.hs +++ b/app/Main.hs @@ -458,7 +458,8 @@ ocr input = ocr1 :: FilePath -> FilePath -> IO T.Text ocr1 tmp input = T.decodeUtf8 . LB.toStrict - <$> sh (printf "tesseract '%s' -" (tmp </> input)) + -- XXX `--oem 1` seems to be unavailable + <$> sh (printf "tesseract '%s' - -l deu+eng --oem 3 --psm 1" (tmp </> input)) data Index = Index { originalText :: T.Text, |