From 81c3bd6a54bc4cc878446af5a932be2e49c5a788 Mon Sep 17 00:00:00 2001 From: fiddlosopher Date: Sun, 22 Nov 2009 18:07:33 +0000 Subject: Modified markdown2pdf so as not to create a backup file. Resolves Issue #166. git-svn-id: https://pandoc.googlecode.com/svn/trunk@1624 788f1e2b-df1e-0410-8736-df70ead52e1b --- src/markdown2pdf.hs | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) (limited to 'src') diff --git a/src/markdown2pdf.hs b/src/markdown2pdf.hs index 038549180..79cd09a2d 100644 --- a/src/markdown2pdf.hs +++ b/src/markdown2pdf.hs @@ -3,7 +3,7 @@ module Main where import Data.List (isInfixOf, intercalate, isPrefixOf) import Data.Maybe (isNothing) -import Control.Monad (when, unless, guard) +import Control.Monad (unless, guard) import Control.Exception (tryJust, bracket) import System.IO (stderr) @@ -129,13 +129,8 @@ saveStdin file = do saveOutput :: FilePath -> FilePath -> IO () saveOutput input output = do - outputExist <- doesFileExist output - when outputExist $ do - let output' = output ++ "~" - renameFile output output' - putStrLn $! "Created backup file " ++ output' copyFile input output - putStrLn $! "Created " ++ output + hPutStrLn stderr $! "Created " ++ output main :: IO () main = bracket -- cgit v1.2.3