From a4fbdb7b1d60b6536822f8a1895c917a1ccf4d5c Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Sun, 12 Mar 2017 15:49:49 -0700 Subject: fix calls to renamePath --- Main.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Main.hs b/Main.hs index bcab3da..d708a10 100644 --- a/Main.hs +++ b/Main.hs @@ -53,7 +53,7 @@ processScanSessDir st dir = withCurrentDirectory dir $ do void $ createProcessWait_ "convert" (proc "convert" (allPages ++ ["temp.pdf"])) -- 2. set metadata with pdftk - renamePath "temp.pdf" "temp2.pdf" + renamePath (dir "temp.pdf") (dir "temp2.pdf") writeFile "metadata" (metadata posix) void $ createProcessWait_ "pdftk" (proc "pdftk" @@ -64,7 +64,7 @@ processScanSessDir st dir = withCurrentDirectory dir $ do } -- 3. maybe ocrmypdf when (st^.stOCR) $ do - renamePath "temp.pdf" "temp2.pdf" + renamePath (dir "temp.pdf") (dir "temp2.pdf") void $ createProcessWait_ "OCRmyPDF" (proc "ocrmypdf" ["-c", "-i", "-r", "temp2.pdf", "temp.pdf"]) { std_in = NoStream -- cgit v1.2.3