diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/markdown2pdf.hs | 9 |
1 files changed, 2 insertions, 7 deletions
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 |