parent
eb78ac7074
commit
d98536feb9
@ -0,0 +1,17 @@
|
||||
--- pandoc-1.8.2.1/src/markdown2pdf.hs~ 2011-08-02 03:02:52.000000000 +0900
|
||||
+++ pandoc-1.8.2.1/src/markdown2pdf.hs 2011-12-22 12:08:02.528735085 +0900
|
||||
@@ -173,8 +173,12 @@
|
||||
|
||||
saveOutput :: FilePath -> FilePath -> IO ()
|
||||
saveOutput input output = do
|
||||
- copyFile (encodeString input) (encodeString output)
|
||||
- UTF8.hPutStrLn stderr $! "Created " ++ output
|
||||
+ inExists <- doesFileExist (encodeString input)
|
||||
+ when inExists $
|
||||
+ copyFile (encodeString input) (encodeString output)
|
||||
+ outExists <- doesFileExist (encodeString input)
|
||||
+ when outExists $
|
||||
+ UTF8.hPutStrLn stderr $! "Created " ++ output
|
||||
|
||||
main :: IO ()
|
||||
main = bracket
|
Loading…
Reference in new issue